monatlich 







2, ‚sm DM 
' 2488 
[8 e) Unabhängiges Magazin für Anwender von Commodore- und Schneider-Computern 2,80 sFr 








NEU I! Letzte Meldung I NEU I! 


Die Computer Division der Fa. Schneider 
Der NEUE wartet mit einem neuen Home- und Perso- 


r nalcomputer auf. Nach einigen anderen 
GPC 6] 28 Herstellern bietet jetzt auch Schneider ei- 
97 nen 128K Computer an und versucht so- 


mit neue Käuferschichten zu erreichen. 


aus dem Lesen Sie den Bericht auf Seite 50 zu dem neuen 
CPG 6128. 


Hause Schneider 












Außerdem finden Sie 
in dieser Ausgabe: 


10 Spielprogramme, 
nützliche Tips & Tricks, 
Anwendungsprogramme 
und das kürzeste 


Spielprogramm das wir je 
veröffentlicht haben! 


Werkstatt - Tips & Tricks - Leserecke - KombiAAbo - Assembler-Kurs 
Teil 5 - Bücher - Report - Kleinanzeigen - Software-Service - The Castle 
of Dr. Dreep - Catchgo - Sub-Zone - Super-Breakout - Gar Race u.v.m. 












Software 


Commodore 

The Castle of-Dr.. Creep (VG-20) 
Catchgo (VC-20 j 

|. Sub-Zone (VC-20) 

The Maze Graze Gäme (C-64) 
Super-Breaksut (C-64) 

Planet of Death (C-64) 

Car Race (C-16) 

"Key-Helper (C-16) 





Schneider 


Labyrinth 
Catch 
Mini Car Race 
Inka Sogra 


Werkstatt | 


Funktionstasten-Programmierung 
für den G-64 


Single Disk Backup für 
Schneider CPC 464 


Tips & Tricks 
Listschutz für C-64 
VC-20 Tips & Tricks 


Hardware 


MS-15 Drucker für 
Home- und Personalcompuier - 


12 
17 
21 
22 
34 
36 


94 
08 


29 





Report 


Computer-Zubehör von HAMA 


Neues Mailboxprogramm 
für Commodore 64 


Ferienzeit ist Computerzeit 


Neuer Home- und Personal- 
computer von Schneider 


Flugsimulator jetzt auch 
in Deutsch 


Leser + Meckerecke 
Kleinanzeigen 


Assembler-Kurs 
Teil 5 


Kombi-Abo 
Software-Service_ 


Bücher 


Ein Standardwerk für den C-64 


Das Standard-Basic-Buch 
zum Schneider GPC 464 


Die nächste 


„Compute mit“ 


können Sie bereits ab 


15 


32 
3d 


90 
H0 


37 


39 


40 


ol 


62 


26 
91 


114. Oktober bei ihren 


| Zeitschriftenhändler erwerben. | 
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Bei diesem Spiel für die VC-20 
Grundversion, müssen Sie dem ver- 
rückten Dr. Creep aus seinem Schloß 
entfliehen. Sie haben dazu 3000- Zeit- 
einheiten zur Verfügung. 

Zu Beginn des Spiels befinden Sie sich 
rechts unten vor ihrer Zeile, aus der 
Sie gerade entfliehen konnten. Nun 
müssen Sie über Spinnen springen, 
die Ihnen entgegenkrabbeln und Sie 
an der Flucht hindern wollen. In der 
nächsten Etage müssen Sie den 
Biuthunden des Dr. Creep auswei- 
chen und über eine Fallgrube sprin- 
gen. Dies tut man folgendermaßen: 
man drückt kurz den Aktionsknopf des 
Joysticks und gibt dann die Richtungsan- 
gabe ein. Bei der Tastatur {A:Oben; Z:un- 
ten; B:Links; M:Rechts; N:Sprung) ver- 
fährt man genauso, erst die Taste N für 
Sprung, und dann eine Taste für die Rich- 
tungsangabe. 

Hat man diesen Teil geschafft, muß man 
auf die rechte obere Burgzinne klettern 
und sich unter den dort befindlichen 
Schlüssel stellen. Dadurch geht das Burg- 
tor auf der linken Bildschirmseite auf. Nun 
roch mit je einem Doppelsprung über die 


The Castle of Dr. Green 


Entfliehen Sie Dr. Greep 
und seinen Gehilfen 


Steine und dann steht man vor dem letz- 
ten großen Hindernis; die Brücke. Diese 
schließt und öffnetsich periodisch, und es 
gilt, den richtigen Moment abzupassen, 
um draufzuspringen und sich laufend auf 
die andere Seite zu bewegen. Noch rasch 
2 Doppelsprünge, und es ist geschafft. 
Jetzt gelangen Sie in den 2. Level mit hö- 
herem Schwierigkeitsgrad. Es kommen 
Ihnen nun mehr Spinnen entgegen, und 
auf der Burgzinne erscheint ein Gespenst, 
das den Schlüssel bewacht. Der jeweilige 
Level wird links oben, die noch verbliebe- 


_programme 


Grundversion 




















nen Leben (am Anfang 3), werden rechts 
oben angezeigt. 


Nach beendetern Level bekommt man die | 


verbliebenen Zeiteinheiten als Bonus gut- 
geschrieben und zusätzlich ein Extra-Le- 
ben. 

Das Spiel konnte leider nur in S/W pro- 
grammiert werden, da der Speicher der 
VC-20 Grundversion keine farbige Pro- 
grammierung zuließ. Alle Bewegungen 
werden aus Geschwindigkeitsgründen 
von einer Maschinensprachroutine (Li- 
sting 2} durchgeführt. 


ANMERKUNG: DIE PROGRAMME WERDEN AUTOMATISCH NACHGELADEN. MAN SOLLTE DESHALB WÄHREND 








> FORE3&378,15: 07-2687 6: 5070110 


DES LADEVORGANGES NIE DIE DATASETTE ABSCHALTEN!! 


Teil ]: 






10 FOKEI&S „26: FORI=71458T07579: POKEL„O:NEXT 


20 
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FORI=7168T07148+287: READY: FOKEI ,Y=: NEXT 


CSompube mib 









programme 


25 FORI=7456107456--34: READY: POKEI,Y:NEXT:FORI=7491107491+153 READY: POKEI ,Y2NEXT 
26 DATA14,112,14,112,14,112,14,112,60,255,44,124,24,31,221,125,61,60,120,72,75,7 
9,227 2 
27 DATA224 ,28,50,40,42,63,11,28,29,60,255,52,62,24,248,187,190,158,60,30,18,18,2 
10,247 
28 DATA199,56,56,60,212,252,208,56,56 
32 DATA6O,255,60,189,132,255,61,61,61,60,60,36,116,115,14,14,61,.60,60,36,46,46,1 
12,112 
32 DATN73,223,253,255,255,255,295,255,255,259,255,255,255,235,194,130,254,248,25 
= 
34 DATA234,252,255,234 ,255,127,259,53,127,582,255,127,63,255,255,126,122,596,56,48 
„16,129 
35 DATA6b,36,24,60,90,127,66,0,55,165,24,60,90,129,129 ,239,238,0,187,187,187,0,2 
38,60 

| 36 DATAB1,241,1M 62,210, 20,8,60,91,241,190.62,210,33,85, 253,224 ,136,221 , 255,221 

| ,138,221 

37 DATA231,189,217,2595,189,169,66,221,48,51,63,254,252,124,56,56,12,204,253,127, 
63,62 
38 DATA28,28,7,5,7,72,240,224,64,0,110,46,0,27,11,11,0,110,118,116,0,216,208,208 

9,318 
3-5 
39 DATA219,219,0,221,221,221,0,119,238,110,0,29,13,5,0,1,50,125,126,60,0,0,0,0,2 

# = Pr=|=| 

| 40 DATAA0,8,0,0,0,0,255,119,85,68,4,0,0,0,0,0,0,0,0,0,0,0,24,24,24,255,129,255,2 

4,24 

| 41 DATA24,24,24,24,724,60,102,195,255,255,255,255,2595,255,255,255 | 

| 42 DATA169,127,141,34,145, 173,2 32,145,41,128,133,251,169,255,141,34,145,17%,31,14 

| 5,41,28 

| 33 nATa2a, 101,251, 133,251 ,173,31,145,41,32,133,252,96 

| 44 DATA225,225,223,223,228,228,225,225,223,223,215,215,219,219,209,209 

| 56 PRINT"L" RETURN 

| 110 FOKE36979 ,25: PRINT"L" 

120 PRINTTITLTT ERRREEERBTTT "  - 

175 PRINT"IJ ! BhBRbbe | i 

| 130 PRINT" — I JUL1/1985 | — I 

| 135 PRINT’ Al BBRphbRe | IF | | 

| 146 PRINT"O IS| |! BRRbREbER | IE: I" 

185 PRINT" — Le f 

150 PRINT"L] 1 

155 PRINT"LO KMTHE CASTLE OFe j® 


180 PRINT"O KBDR.CREEPR ne 
: 185 PRINT"O vE-20 I" 
i 170 PRINT"O —— :® 


| 175 PRINT"O RDESE IANDR. IBSPIDERB | "- 
180 FRINT"O) BSIGENEDEISPIND IS SOFT 1" 





185 PRINT'I] BBYR I LER | Be 
1970 Be On! lat 
175 PRINT"D “ en 
200 FRINT"D ee iu 


300 SP$="SPIEL BEKANNT (J/NI 77" 
| 350 FORI=ITOLEN (SP$#) =PRINTLEFT$ (SP$,PI"D": FOKEOT „180: PDKEOT „O: FORT=1 TOBO: NEXTT,E 
| 355 FORL=80678108098+20: POKEL „32: NEXTL 

360 BETAN$: IFANF«T F"J"ANDANS< "N" THENSSO 


362 IFANF="J" THENPOKE37877 ,72:PRINT"ERMDMENT BITTE !!!!":6D5UB10:G6DTD470 
440 FORV=12T059: FOKES6864 ,VzNEXT F 
445 FRINT'"ÜS THE CASTLE OF DR„EREERP “ 


450 FORV=59T0125STEF-1: POKEI6BE4 „Vs NEXT 

460 PRINT"BEHDLEN SIE DEN SCHLUE- SSEL AUF DER. RECHTEN BURGZINNE „UND FLIEHEN " 
479 PRINT"[BIE DURCH DASS SCHLOSSTOR. ABER VORSICHT VOR SFINNEN,HUNDEN USW... .E" 
475 FRINT'EERRERERBISTASTE":WAITLFB,1 

420 GOSUB1O 


4 = Gompute mib w 12 


programme. 


490 PRINT'"IRBINSPRDERAMM LDADINGIS" 
500 FOKE631,131:POKE198B,1 


Teil 2: 


1 REM**GHOST MANDR-?e# 

2 REM#*BY MASTERSOFT** 

3 -REM&#MASCHINENU. PRO. % 

5 POKEZ4859 , 255: POKE36879 ‚8: PRINT "ja" :5=1: X=7491:G0T0100 

10 FORI=4700107110: READY: PDKEI „Y:NEXT 

20 DATR150,16,185,206,31,201,15,240,15,201,16,240,26,136,192,1,240,3,24,144,237, 
24,143 

21 DATA30,169,32,153,206,31,169,16,200,153,206,31,136,24,144,230,169,32,153,206, 
31,169 

22 DATA15,200,153,206,31,176,24,144,215,173,223,31,201,15,240,3,24,149,10,169,32 
„141 

23 DATA223,31,169,16,141,208,31 

24 DATA160,2,185,118,31,201,18,240,15,201,19,240,26,200,192,17,240,3,24,144,237, 
24,144 

25 DATA3O,1689,32,153,118,31,169,19,135,153,11B8,31,200,24,144,230,169,32,153,118, 
31,169 

26 DATA18,136,153,119,31,200,24,134,215,173,119,31,201,18,240,3,24,144,10,169,32 
„ia 

27 DATA119,31,169,19,141,134,31 

2B DATA160,132,195,154,30,201,21,240,8,136,192,0,240,26,24,144,241 ,169,32,15%,15 
4,20 

29 DATA152,24,105,22,168,169,21,153,154,30,152,24,233,22,168,24,144,225,160,13,1 
85,20 ,31 

30 DATA201,21,240,8,200,192,22,240,15,24,144,241,169,32,153,30,31,159,21,153,154 
„20,24 

31 DATA144,235 

32 DATA160,13,185,110,30,201,23,240,8,200,192,19,240,18,24,144,241,169,32,153,11 
0,30 

33 DATA169,23,136,153,110,50,200,24,144,233,160,17,185,110,30,201,22,240,8,136,1 
92,11 

34 DATA240,18,24,144,241,169,32,153,110,30,169,22,200,153,110,30,136,24,144,233 
35 DATA173,122,30,201 „23,240,10,173,1298,30,201,22,240,16,24,144,23,169,32,141,12 
2,30 

3& DATA149 ‚22,141,122,30,24,144,10,169,32,141,128,30,169,23,141,128,30 

37 DATA173,223,30,201, 30,240,10, 172,229,30, 201,31.240,16. 24,144,18,169,31,141,22 
3,30 

58 DATA169,31,141,223,30,24,144,5,169,30,141,229,30,160,8,185,220,20,201,31,240, 
8,136 

39 DATA192,2,240,18,24,144,241,169,32,153,220,30,200,169,31,153,220,20,136,24,14 
4,21 

40 DATA160,4,185,220,30,201,30,240 ‚3,200, 192,11,240 ‚7,24, 124,241 

41 DATA136,153,220,20,96 

50 RETURN 

100 REM 

110 A$="dJ CASTLE OF DR.CREEP " 

120 B+=" OORDILNIKARRINGEROIG" 

130 C4="g MOMENT BITTE Hr tıım 

136 D$="d PROBRAMM LOADING !* 

150 FORL=7702107702+21:A=A+13PRINTLEFTS AS, A) :PRINTLEFT$ (E#, A) "II POKEL 45 POKEL 
ee 5 

160 FORT=1T0&0: NEXTT:PDKEL+22 ‚6: FORT=1T060:NEXTT: POKEL ‚32: POKEL+22 ,32: BOSUBS00: N 
EXTL ä 

1685 PRINT" RR" : A=0: 8=5+1 

170 FORL=7812107812+21: A=A+1:PRINTLEFT$D$ A) "OD": POKEL, 15: FORT=1T060:NEXTT 

180 POKEL ‚14: FORT=1T060: NEXTT: POKEL „32: GOSUBS00: NEXTL » 

170 FOKES6878 ‚0: BOSUB10:A=0 





10185 | Compute mi | ; 


programme. 


FRINT’RER" 
So FORL=78781T07878+22: A=A+1: PRINTLEFTS (D$ „,A) "II" zFOKEL,„21:FORT=1TD100:NEXTT 
2206 POKEL ,32: S0SUBSOG: NEXTL: POKE36878,0: PRINT" 
250 FÜKE&A31,131:POKE199,1:END | 
| Soc FOKEZ4B73, 15: FORES6B75 ,FEEK (X) : X=X+8S: : IFX=7507 THENX=7491 
516 RETURN Bu 


Teil 3: 


FRINT"WSRISCASTLE DF BR.EREEP" 
PFRINT’BEEIIISPRESS FIRE TO START !" 
FOKE650 , 1728: 8Y57456: BETA$: IFAF="D"ORPEEK (252) =SOTHEN?O 
; GOTODSO 
R=0:F=3:5=1 
B=8142:C=17: A-3000: B=32: W=37: 0=2: P=1: X=7471 
FRINT"L":POKESA8B79, 19: FOKE34869 , 255: FRINT’REGRBBH+RDOR.CREEFFR*" 
PRINT" SISHHERIL g* 
PRINT"B gr 
2 PRINT"dE ] I I Digannd Eden" 
PRINT"O@ g" 
| PRINT"Ye g" 
PRINT"D« zZ 
PRINT"\BR=r age u" 
PRINT"RBIT ape yo g" 
PRINT"ERIT eue _ uor 
PRINT"RBUT ee LG" 
PRINT"J#G GdE DRiccı Alena"; 
PRINT"ON B NE“; 
22 PRINT"B 3 @": 
FRINT"R R @SSR0", 
PRINT"LEHKHEHK KEKEKKKEKBKKER" 
FRINT'TLE N N NTTTM"z 
PRINT'"L@ ATTTM"; 
FRINT'Le P BTTTM"3: IFS>STHENPOKE7B93,21: POKESOIFO ,I2 
PRINT"#IJJJJJIIJIIIIIIIIIIII" 2 IFS>ZTHENPOKE7847 ,21:POKEBOSY, 18 
POKEB164+21 ‚35: POKE7746+18 „245 IFS>1 THENFOKE7806 ,22: FOKEB1S2, 16 
FRINT"BISSERET IME" As "IE SCORE" SR; "HI ": FOKES637B,,0: FOKES4877 „O0: U=ds IFM=ZTHENM=O 
FOKE7&BO „5+176: POKE77C1, F+175 
POKEI4B7B, 15: POKEIAB76, PEEK(X : KeXtlı IFX=7507THENX= 7431 
FÜKER+EU, 0: FOKEB+C-272,F 
IFM=1ANDPEEK (B+C+22) € >32THENR=R+50 
9YS56700: IFPEEK (B+C)< >OORPEEK (H+r6-27) <>FTHENSOO 
IFPEEK (B+C+27) =ZZANDM=OTHENGOO 
IFB+C=7957THEN1OO0O 
A=A-10: IFA=-10THENSOO 
= IFFEEK {EB+D-443 =24THENSOO = 
IFM= 1 THENM=?: POKEB+TC „W: FOKEB+C-2# ‚8: BeB+t77?:0=0HU 
SYSF456: IFPEEK (B+C)< FOANDM=10ORPEEK tB+C) < >IFANDM=STTHENSOCO 
BETAS: IFA$=" "ANDPEEK (281) = 1 SAANDPEEK [25:23 < >OTHENFORT=1TOSO: NEXTT: BOTOLSC 
FOKEB+U „Wi POKEB+C-22 , Or: POKE34878 , 15: POKE35877,180 
IFA&="A"DRPEEK (2513 =15S7THEN?SO 
IFAs=" Z"ORFEEK (751) =14STHENZOO 
IFAg="B"ORPEEK {251} = 140 THENZSO 
TFAF="MPORPEEE (751) =2BTHENAOO 
IFAs=" N" ANDM=OORPEEE (757) =0ANDM=OTHENGSO - 
E0TO130 
IFW=GTHENEB=B-72 
IFP=7THENO=0+1: IFO=10THENG=8 
IFF=7THENA490 
P=7:0=8: BOTO4F0 





i zZ Compwbe mib | un 


300 

310 

315 

320 

350 

360 

365 

370 

400 

410 

415 

420 

450 

451 

455 

460 

470 

490 

500 

501 

76,0 
502 NEXTH 

503 FOKE19B,O 
510 
520 
530 
00 
605 
610 
800 
810 


IFP=7THEN490 
P=7:0=8:BOTD490 


IRRE SIENIZO 
P=1:0°=2: 5070490 


IFF=4THEN49FQ 
P=4:0=5: 5070490 
IFF=1THENU=1 
IFP=4THENU=-1 


GOTG120 
E=C-U 


FORH=1TOS 


GOTDSO 
SOTO40 


IFFEEK (B+C+22) =SOTHENB=B+22 
IFP=7THEND=0O+1: IFO=1OTHENO=B 


IFPEEK {B+C-1)=00RPEEK tB+G-1) =32THENG=C-1 
IFF=1 THENO=0+1: IFO=4THENO=2 


IFFEER (BACH) -ODRPEERKGRÄEH TESTING 
IFP=4THENO=0+1: IFÖÜ=7THEND=S 


IFFEEK (B+T-44-11) =T2THENB=B-2?: M=1 365010470 


W=FEEK BH+C)} : Q=PEERK (B+C-22):5DTD130 


POKE34B78, O:sF=F-1: IFF=OTHENSSO 


programme 


FOKEE+C ‚34: POKEB+C-22, 33: POKES6B78B, 15: FORG=200T0250: POKES687& „GB: NEXT: FOKEZEB 


FOKEB+C-22,32:B= =B+22: IFPEEK {B+C} < FIZTHENFOKEB+L , 32: B=B-22: BOTDOS00 
POKEB+C ,O: FOKER+C-22,F 

FORT=1TD100: NEXT: BOTO&00 
FÜKE7758,32: FORT=1T0150: NEXT: POKE7F46 , 32: FORT=1T0150: NEXT: FOKE7924 ,32 
FOKER+C— 24a, 32: FOKE77&8B+HT „32: POKEF7FO+C , 22: 6010490 


1000 PDOKE34876,0: FOKE38878, 15: FORG=1 1010: FORH=150TO25085TEP?2: FOKE35B75,H: NEXTH, 5 


1010 POKE3S6875 ,0: FORE36878,0: 5=5+1:R=R+A: IFS=S2DTHENF=SF+1 


1020 B07080 


‚Alle VC-20 Grundversion-Besitzer sind bei diesem Programm angesprochen 


In diesem Spiel müssen Sie die im Spie!- 
feld verteilten Punkte fressen. Aber so ein- 
fach das auch klingen mag, so einfach ist 
es leider nicht. Vier Geister sind nämlich 
ausschließlich damit beschäftigt, Sie an 
dem Fressen der Punkte zu hindern. Diese 
Geister wandern an den Leitern aufund ab 
und bewegen sich in den einzelnen Eta- 
gen hin und her. Als ein weiteres Hilfsmit- 
tel steht den Geistern ein „Zerstörer“ zur 
Verfügung. Dieser taucht plötzlich an un- 
terschiedlichen Stellen auf und bei einer 
Berührung mit ihm verlieren Sie ein Le- 
ben. Neben den Geistern und dem Zerstö- 


10/85 


rer gibt es noch einen dritten Faktor, den 
Sie berücksichtigen müssen, die Zeit. Am 
Anfang des Spieles stehen Ihnen 150 Zeit- 
einheiten Kraft zum Laufen zur Verfügung. 
Diese Krafteinheiten verringern sich je- 
doch von Runde zu Runde um 10 Einhei- 


ten. Je schneller Sie also alle Punkte fres- | 
‘sen, umso höher ist Ihr Score. 


Sollte es Ihnen gelungen sein, alte Punkte 
zu fressen, müssen Sie den auf dem Bild- 
schirm erscheinenden Schlüssel aufneh- 
men und zum Schlüsseizeichen am Bild- 
schirmrand laufen. Bei Erreichen dieses 
Schlüsselzeichens ist das Spiel beendet 


Compute miß 





und die erreichte Punktzahl wird guige- 
schrieben. 


[zum Steuern des Spieles vorwenden si bit 


te iolgende Tasten: 
Space Aufzug hinunter 


Aufzug hinauf 
links 


rechts 


Listing siehe nächste Seite 





programme 


iO FOERES497%,12: FOKEZ5878 „15: POKE3587&,7200 

20 PRINTCHRS (142): FOKE&57,1728: POKES1,167: POKES? , 78: FOKESS „167: FOKkESS „28 

30 PRINT"UE"TAB(4B0)" "BITTE WARTEN" 

40 READB:TFORT=0TO7: IFB=- 1 THENGO 

50 RERDA:FOKE7ISB+ERSHT „As 5=5+A: NEXT: BOTD40 

40 IFS<>1479ZTHENFRINT"IBBRIBIDATENFEHLER BEI ZEICHENDEFINIERUNG! ": FOKE36876 „0 
:END 

79 S5=0: FORT=6T0157: READA: FOKET7S12HT „Ar S5=5rA:NEXT 

S0 IFS<F15180THENFRINT"IRREIDATENFEHLER BEI"=:FRINT"ERBHÄSCHINENCODES!":FORE36075, 
SO: END 

70 PRINT"IDIE DATEN SIND GELADEN": FOKESA876 „O 

200 SORTE SSSSRENTESRLE ER en 


201 FRINT"# +"; 
262 PRINT"# SCATEHSOR +": 
202 FRINT'"#+ +": 


204 FRINT rl" 
205 PRINTTAB{FSHI" IE)" 
206 FRINTTARLFZI "BT" 
207 PRINTTAB(25) "FRANK WUGGENIG" 
208 FRINTTARB (25) "9521 TREFFEN 157" 
209 FRINTTAR (95) "-TASTE-":POKE1IS,0:WAITIFB,1 
2i0 FORT=OTO1:FORTT=14070250: FDKESE8876,,TT:NEXTTT,T: FOKEI6876,0 
211 PRINT"L"TAB(?T7I"SFIELANLEITUNGLI/N) 
z12 IFPEEK{1LFTI=ZOTHEN21S 
213 IFPEEK(IFTI=-DPETHENTAS 
714 GOTO?17 
215 FRINT"LHERZLICH WILLKOMMEN" = PRINT 
2i6 FRINT"ZUM SPIEL BCATCHEDS .„ " 
217 FORT=0T021: POKEZBS1O+T „4: POKE7790+T „BB: FOKES68B77 , 200+T: POKES6877 0: NEXT 
218 PRINTTAR (88) "ZUNAECHST MUESSEN SIE " 
219 FRINT"DIE FUNKTE FRESSEN. "PRINT 
220 FRINT"DANACH ERSCHEINT EIN":PRINT 
221 PRINT"SCHLUESSEL,DER BUCH": PRINT 
222 PRINT"VERSPEISST WIRD. " 
223 FRINTTAB (95) "-TASTE-"IPOKE1IB,0:WAITLFS,1 
224 FRINT®LIETZT MUESSEN SIE NUR " 
275 PRINT"NOCH ZUM SCHLUESSEL-"IFRINT 
zuh FRINT"ZEICHEN LAUFEN.” 
27 FORT=0T021: FOKEZ8F37+71 „3: POKEFB1I+T „BIS: FOKEI5877 ,150+T: POKE3&877 ,O2 NEXT 
228 PRINTTAE{S6) "DOCH BEISTER WOLLEN": PRINT 
>29 PRINT"SIE DARAN HINDERN. AUCH" 
230 PRINT"MUSS AUF DEN ZERSTOE- " 
251 FRINT"RER GEACHTET WERDEN, ":FRINT 
232 FRINT"DER PLOETZLICH IRGEND-" 
233 PRINT"WO ERSCHEINEN KANN. " 
234 PRINTTAR{51) "-TASTE-":POKE198,0:WAITI1IB,1 
225 PRINT"L"TAB (67) "STEUERUNG: " 
236 FRINTTAB(29)"B. . „LINKS“ 
=327 FRINFTAR (28 "M. „ RECHTS" 
235 FRINTTAB(ZB) "J.. .AUFZUG =" 
233 FRINTTAR (24) "SPACE. ..AUFZUG I" 
240 PRINTTAB {183} "-TASTE-":POKE199,0:WAITLFB,1 
241 PRINT"L"TABtIS2Y "WENN SIE JETZT EINE" SPRINT 
242 PRINT"TASTE DRUECKEN,SO WIRD" 
243 PRINT"DAS FROGRAMM BELDESCHT" 
244 POKE178,0:WAITIIB,A1 
245 FRINT"W"TAB(205)" "BITTE LOAD’":NEW 
1000 REM ZEICHENDEF. & 
1010 DATA21 ,255,255,102,60,755,7255,255,24 
1020 DATA?2,255,103,36,28,15,7,3, 
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programme 


1030 DATA23,255,230,36,56,240,274,192 
1040 DATA24,255,126,60,24,24 24,24 ,24- 


“ |} % 
1050 DATA7S,24,24,24,24,24,60,126,255 D E N h d 
102G DATA DEE nn i i ; E ie ın 2 e es 


1070 DATA27,243,237,245,245,735,723,191,207 


= 
30 IM AZB, n. 203 4 70, 1276,60,24,102 i P ü t i 
ee ersten Programmteils: 


1100 DAraso, ie 24, 24,24 ,24,24,24 
1110 DATAZL uannan sn 

1170 DATASZ aan 

1130 DATASZ,255,255,145,153,1532,165,253,255 
1140 DATAZA, , 248, 104,48, 24 


1150 DATASS.B.16,8,16,8.15,8,1& (fehlerfrei 


1160 DATAZ6,12,18,10,10,20,32,64,48 
1170 DATA37,255,126,60,24,8,15,8,16 


haben Sie gleich 
21?) 


n 
7 Im 4 #4 ’ T F h fft 
1180 DATAZB, 5„24,24,36,36,24,126,255 0856 q a 


‚1190 DATA3F,195,102,36, 90,219, 102,24, 6) 

1200 DATA40,127,90,36,60,90,60,107,195 

1210 .DATA41,195,60,90,60,24,60,66, 129 

1220 DATA42,129,90,126,219,255,221, 126,219, -1 
2000 REM MASCHINENCODES 





2010 DATA162,195,189,90,30,201,24,16,17,157,112,30,158,189,648,30,157,90,30,15?2,? 


4,105,7 
2020 DATA157,68,30,2724,0,240,4,202,76,90,29 
2020 DATA162,151,189,22,31,201, 24,16,17,157,54,21 


2040 DATALSB,189,10,31, 157,52,31, 157,24.105.,9, 157,10,31,224,0,240,4,202,76,124,2 


7,75 


2050 DATA162,0,189,32,31,168,189,54,21,201,24,16,12,157,32,31,24,105,7,157,54, 31 


„152 
20650 DATA157,10,31,224,151,240,4,2732,76,159,29 
2070 DATA162,0,189,90,30,168,189,112,30,201,24,16 


2080 DATA13,157,90,30,24,105,9,157,112,30,152,157,68,30,224,198,240,4,222, 76,193 


297,96 
2090 DATA159,60,141,77,29,16#, 66, 141, 78,29,159,129,141,79,27,76 
2100 DATA1lA9,36,141,77,79,181 „78.29, 1659,24,141, 79,29, 76 





100 GGTD10000 

200 IFI(T) THENRETUÜRN 
220 IFITHENZDO 

240 I{TI=INTIRNDEID* DIE IFICTISLANDRCT}=35STHENY (T)=-22: I=1: RETURN 
250 IFICTI=ZANDFEEK (GT) +27) =37 THENY {T}=22: I=1H: RETURN 

280 YETI=INTERNDC1LI#2I SE IFYCMD =OTHENYETI=—A 

Sa0 I(T=0: RETURN 

>50 RETI=PEEK (GITI I ERETURN 

4090 PUKEL,160:5Y57512: IFPEEK (A+44) <A THENA=A+22: RETURN 

425 IFFEEK (Arös)< 24 THENA=A+44 

450 RETURN 

500 POFEL ,180:5Y57581: IFPEEK (A) <Z4THENA=A-272: RETURN 

525 IFPEEK tA-2P) X24 THENA=A-44 

S50 RETURN 

&00 POKEF {E) „32: E=INTERND(1I #11): :POKEF (EI „38: IFF(EI SATHENSO0O 
650 RETURN 

700 Ft0)=7923:611)=7848:65 (2)=7936: 615) =8015:614)=8107 

725 FORT=1T04:R{TI=32:POKES(T) „PsP=F+12NEXTıP=39 

750 A=7757: FOKEA,29: RETURN z 

775 POKEL,230: PRINT"E" : : PRINT EEBBEBMBERSCORE: "SC: C=32; RETURN 

goo B=INT {RND (1) #2771+7839: = FORH=1T010: IFF {H} =BTHENBOO 
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Auf geht's! Teil 2 wartet auf die Eingabe. 









programme 


B7O N 


g40 I 


EXT 
FFEEE {EB} =Z2ANDPEER tB+r22) =33THENFOKER „365: RETURN 


Ba0 GOTOBOG 


Bao I 
CO R 
1000 
1025 
1050 
1075 
1090 
1100 
1110 
1120 
1120 


‚1146 


1150 
1500 
2000 
2025 
2050 


2075 


2100 
2125 
2150 


FPEEK (8 CT) +23) =3Z0RPEEK (GT) -22) =33THENI (T}=0: 1I=0 

ETURN 

FORT=1T04: B=PEEK (177) : IFB=34 THENX=1: GOTQ1100 
IFB=35THENX=-1:50T01100 

IFE=32ANDPEEK (A+22) {24 THENGOSUBAOO 
IFR=20ANDPEEK (A+22) <24 THENGOSUBSOO 

BOTOLSOO 

POKEL „200+X: PDKEA,C: A=sA+X: C=PEEK (A) : IFC=3S6 THENSC=SC+30: D=0: GOSUB775 
IFD=0ANDC=27 THENAO0G 

IFC<2FANDE >ZOORC=33STHENA=A-X: [0=32. 

IFC=34THENSC=SC+10: D=D-1: 6DSUE775: IFD=1THENPOKEL „240: 605UB300 
B=PEEK (A+22) = IFC>370RB=320RB=340RB=3ADRB >37ANDPEEK (A+23) < >33THENSOOO 
POKEA,29 

V=V+1: IFV=ATHENV=C: BOSUBS00 

SOSUB200: POKEG{T) „R{T) :POKEL ,200+T#3: IFT=1THENSYS7650 
BITISBITIHYETI SH=PEEK {BT} } : B=PEEK {G{T) +22) = IFT=STHENSYSTA66 
IFH< ZFANDH>ZOORHF3BORBT ZZTHENG {T}=6 (TI -Y(TI:GOTO2175 

H=H-32+ IFHSOTHENH=0: R(T}=32 

ONHGOSURZSO , 50 , 350,350 , 350 
IFB=29ANDPEEK (6 (T) +66) =SSTHENG (TI=GTI+Y ET) 

IFI(T) THENSOSUBSBO 


2175 POKES{T} „PıP=F+l: IFP>A42THENP=IF 
200 


7500 
Ka) eie 


FOKEL „0: IFG{T} =ATHENSOOO 
FRINT"B"TARLZIHTWTIME :"Z-INTETI/S0O): "MB": s Ir2— TI/SOSÜTHENSOOO 
NEXT: GOTG1000 


5000 FORF=150TO2BSTEP-2: POKEL+3,T:POKEL,T+100: FGORE=1T019: POKEL „O:NEXTB,T 


S025 


FOKEA „ ?9+ FORT=0T0500: NEXT: FORT=1T017: A=A+22: IFAFBLALTHENSOTS 


5050 FORB=6T05: FÜKREA-22 ,32: FOREA+30720 „0: POKEA „28: FÜKEL-Z,250-B-T#7:NEXTE,T 


5075 
„100 
3150 
3175 
3200 
[16/6187 
50253 
&050 
6100 


FÜKEL-2,0 

PRINT"E"TAR (182) "IGAME DVER!"TAB(94) "ONCE MORE?" 

IFPEEK {1973 =20THENRUN 

IFPEEK 197) =28THENPRINT"L" :POKES6867, 240: END 

G0TOS1S0 

SC=SC+Z-INT (T1/60) : GDSLB775: FORH=OTOZ: FORB=14010250: FOKEL ‚B: NEXTB,H 
FORT=0T07: POKEA+30720 , T:POKEA, 36: FORB=0T050: POKEL , 
PRINT"BII"TAB (244) "ICONGRATULATION! 

Z=Z-10: IFZ<SOTHENZ=Z+10 


6150 FORT=OTBO5000: NEXT: 50T01001G 


10000 
10010 
10020 
10030 
109040 
10050 
10040 
10070 
10080 
10070 
10100 
19116 
10120 
10130 
10140 
10150 
10150 
10170 
10180 
10190 


130+B+3#T:NEXTB,TF:FOKEL,O 


POKE657 ‚128: POKES6869 ‚255: POKES6878, 15: POKES6879 ,28: 7=150 
FRINT"EITAB(AN)" X x 

PRINT? an | | a 
PRINT" VUWETZEITEEZT I LYEWe | wer : 
FORT=0T02:PRINT" % # » "next I Gleich haben Sie den 
BRINT® = gtreigreruigio nom ' 
FORT=OTD2:PRINT" + # #% "LNEXT schweren Teil des 
PRINT"ZZ X Iytrteizreriuo non | ’ 

FORTSOTOZEPRINTT 7 #0 # “SNEXT | Abtippens geschafft 
PRINT“ tıgertitagiı non m ch; 
FORT=OTOZ:PRINT® 0 # #7 "NEXT und können sich ins 
FRINTU on trrsetsrretie mm. . u. a | 
PRINT“ Y ve ‚Spielvergnügen stürzen! 


FORT=7727T081&1: IFFEEK{TI< >SSTHENFORET+30720,0 
NEXT 

D=13:1L=>3487&6:P=37 

FOKE38542 , 2: PDKE7F22 „27: GOSUB?7OO 
FORT=7TO19STEP4: FÜRB=0702 

H=INT{RND {1 #13) +5: IFPEEK (76B0+T#22+H) < >32THEN10180 
FOKE7SBO+TH27+H 3A: NEXTB,TF 


Gompute mi 
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10200 
10210 
10220 
310230 
10240 


FORT=1T01U 


NEXT 


GOSUR775: POKE1FB, 0: WAIT1FB,I 
FOKEL. „0: TI$="000000": 


GSOTD1000 


tips & tricks_ 


FiTI=INT{RND (1) #27793+7839; IFFEEK{FATIDSISZORFEEK (FIT) +22) S>3SSTHEN1O210 


Einige nützliche VC- 20 TIPS UND TRICKS 
die jeder VG-20 Besitzer schon einmal gehört haben sollte. 


POKE37877,0: verlangsamt sämtliche Rechnerfunktionen 


POKE37877,72: nzs (Normalzustand) 


POKEG42,16:POKE644,30:POKEG48,39:5Y864324 Umschaltung auf Grundversion 
mit 3583 Bytes (bei eingesteckter Erweiterung) 


RE-NEW/RE-RESET: 


Folgendes ist in den Direktmodus einzu- 
geben, um ein mit NEW oder mit einem 
RESET gelöschtes Programm wieder zu- 
rückzuholen. 


POKE46,PEEK(56)-1:POKEA5,PEEK(55)+ 
247:CLR (RETURN) 


POKEPEEK(44) MAL 256+PEEK[43}+1, 
PEEK{44) (RETURN) 


6399 {RETURN) 


FORI=PEEK(44) MAL 256+PEEK[43]T0 
PEEK{46) MAL 256 + PEEK[45):IF PEEK 
{1} OR PEEK(I*1) or PEEK(H+-2) THEN NEXT 
(RETURN) 


Bei dieser Zeile ist es ratsam, bei wenig- 
stens einem Befehl die gebräuchliche Ab- 
kürzung zu wählen, da die Befehlsketie 
sonst nicht in eine Zeile passen würde. 
Einen Moment warten, danach: 


POKE4S(I+3)and 255:POKE4B,(I+3)/256:clr (RETURN) 


Meist tritt dann eine Fehlermeldung auf 
{out of Memory ERROR). Man sollte das 
Programm dann mit 'SAVE’ abspeichern, 
den VG ausschalten und das Programm 
wieder neu einladen. 
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LISTSCHUTZ: 


POKXE774,27: Völlig konfuse Basic-Befehle 
werden gelistet. 


POKET74,26: NZS 


PORE646,x (x=8-255]: Alle Zeilen werden in 
den wiidesten Farbmischungen ausgege- 
ben. 


POKEB49,D: Der VG-20 nirnmt nichts mehr 
an z 


POKE774,0: Nur Zeilennummern werden 
gelistet 


e 
u 
BB 
»| 
0) 
2 
“ W 
7 we 
"B 
Je 
se 
ı 
Se 
Ye 


Schöneberger Str:5 . 
5 106 erlin 42 ‚(Fempeihi 
0: m ir] 30/60. 


Gompute mit 


SAVESCHUTZ: 


Mit POKES5,30:SAVE„NAME“, kann ein Sa- 
veschutz umgangen werden, mit dem vie- 


le Programme gesichert sind. 


Zentrieren 

des Bildschirms: 

Horizontal: POKE35854,XX=0-59;Nermai 12} 
Vertikal: PGKE36865,x[X=0-156;Normal 38) 
POKES6,255 (RETURN) 

51858238: VC-20 mit 64255 Bytes 
POKE37148,252: Einschalten der Datasette 


PGKE37148,254: Ausschalten der Dataset- 
te 


POKE36867,47: Doppelt hohe Zeichendar- 
stellung 





Seh had 


für die Grundversion des VC-20 


Diesen Funkspruch aus dem Marine- | die Sie zur Elimierung des Feindes einset- | ten, daß Sie beim AbwurfeinerBombe ge- 
hauptquartier haben Sie als Kapitän eines | zen können. Da diese Wasserbomben auf | nau über einem feindlichen U-Boot ste- 
U-Boot Zerstörers erhalten und kreuzen |. dem Stand der neusten technischen | hen. Für jedes getroffene U-Boot erhalten 
nun mit hoher Geschwindigkeit zu dem |$, Errungenschaften beruhen, müssen | Sie mindestens einen Punkt gutgeschrie- 
angegebenen Seegebiet. An Bord haben Sie nur noch die Tiefeneinstellung an | ben. Gelingt es Ihnen, die Boote in kürze- 
Sie neun hochexplosive Wasserbomben, ; ‘den Bomben vornehmen. D.h., Sie | ster Zeit zu vernichten, erhalten Sie eine 
geben an, in welcher Tiefe Ihre | höhere Punktzahl. Die größte Punktzahl 
“ Bomben detonieren sollen. | können Sie erreichen, wenn Sie die 
Natürlich muß aber | kurz unter der Wasseroberfläche kKreu- 
> auch die Richtung | zenden Boote treffen. Jedes U-Boot, das 
der Bomben stimmen. | Sie passieren lassen, kostet Sie drei 

Sie müssen also darauf ach- | Punkte. 


Die Steuerung des Spieles erfolgt mit dem Joystick: 
5 Zerstörer links & rechts = Joystick links & rechts 
“ Höhe bzw. Tiefe der Explosion = Joystick oben bzw. unten 
Abwurf einer Wasserbombe = Firebutton 


Eingabehinweise: 
Das Programm besteht aus zwei Teilen, 
wobei im ersten Teil die neuen ersteiltwer- 
den und das Spiel kurz beschrieben wird. 
Der zweite Teil enthält das eigentliche 
| Hauptprogramm. Das Programm sollte 
E (C) BY FRESSOFT * | ae mittels der BASIC-Abkürzungen 
; - = | Anhand D, VC-20-Handbuch) eingege- 
B En 1.Pro ! ben werden, damit das Progamm richtig 
* LUTZ BLOMBERG -grammteil j ; eingetippt werden kann. 
* 


*5270 GUMMERSBACHI* 
KEHKRHEUHFITERKIUR IN HH 
=Z4879: POKEP , 104: A&="FLEASE WAIT... "34-7168: V=V+311: POKEP-1,15:POKES6,28 
ZRITIILITITTITENIE SUB - ZONE m 
SRTIDTETHTTTREEIE m* 

32 FORC=VTOY: READS: POKEE ‚8: A$=RIGHT$ (A$, 14) +LEFT$(A$, 1) : POKE646 , INT{RND (. 37): PO. 
KEP „105 
33 PRINT "KREIEREN" As: FOKEP-5 5: POKEP , 104: NEXT= POKEP--5 ,0: BDT069 
35 DATA&,7,7,127,213,234,127,63,,,64,253,87,175,253,240,60,24,90,126,110,52,60,2 
a 
36 DATA1S0,36,81,56,59,84,146,72, ,64,8,2,16,44, ,81,1,67,4,1,8,2,16,1 
27 DATA128,66,128,168,,64,16,1,149, 22,36, ,,16,2564,56,120,72,8,24,36,126,231 
38 DATA29,30,18,16,24,36,126,231 ,32,251,55,255,100,53,31,15,231,189,90,255 





2 j  . Sompube mib | ne 


programme 


39 DATA146,255,253,255,4,223,236,255,78,252,248,240,34,85, 136,4 44,,126,129 

40 DATA126,2,5,10,20,3,4,2,130,140, ,36,86,36,73,73,73,51,,.158, 160,224,16,231 

41 DATA40,199,,,,40,80, 160,192,193,162,92,63,85,84,34,36,132,132,128, 160 

42 DATA184, 160, 140,160, 160,161 ,30, ,3,7,14.31,56,112,225, „255.255.28,97,127 

43 DATA2I&,198, ,255,2559,221,204,152,63,127, ,255,255,156,206,103,243,249, „192 

44 DATA224,,120,28,254,235,,255,127,56,31,1,7,3,,255,255,63,156,206, 231,243 

45 DATAO,255,255,252,57,115,231,206, ,255,255,224,240,129,3,7,,255,254,112,224 

46 DATA192,128,,255, 125, 157,161,161,157,129 nein ge, 255,65,106,106,41,25 
5,255 

47 DATA255 ,255, 255, 255,255, 255,255,255,16,61,125,223,127,255,61,8 

48 DATAO,4,172,253,255,255,255,259,433714,113,128,255,,,12,106,145,1,1,254 

67 IFPEEK (7168) < >6 THENRESTORE: FÜRI=7168107192: READA:POKEI „As NEXT 

70 FOKRER-106,2535: PRINT VE TSTERE Bee Babı ee 117. 5: EIS Free Beer Be17 SD IeEe Fee. LT" 

71 FRINT Reken BEEREEE | ENDFEEE SER | BESRTST a | EREIRENERIE "aFDRI 
=B0X2T08053 

72 POKEI ‚363 POKEI+30720 ,0: NEXT: FORI=8054T08185: POKEI „34: POKEI+30720 ,O: POKEP-3, (I 
-7930) z NEXT: POKEP-3,0 
73 FRINT "BE Biker] BieBeISt IE X Virkekeig | ERREGER? E \ I "EISESSIG (CI) 4 "S" 

74 POKE646, 125 PRINT "LELLDLLLMMMMMMMMFMMAMMMMMAMHM ";A$="al RERREKL ":Bs="eA ":PO 




















KESAG,O 

75 FORI=1FTOSSTEP-. 1: PRINT" BEER 1" TABCDIAS:POKEP-2, (160+I#5} ) EeNEXT:POKEP 
-2,0 
76 FORI=19TOSSTEP-. 1: PRINT" ERERREREREDERBERTEN" TAB ID) B$: POKEP-3, (1&0+11#5) ) :NEXT:P 
ÜKEP-3,0 


77 POKEBOIS,3:POKE8018 ,3: FORI=CTDO7STEP. 1: POKE38735, 1: POKE38735 „ 1: FPDKEP-2 ,200: NEX 


78 FORI=ISTDOSTERF- . 05: POKER-1 , I: NEXT=+PFOKEPF-2,,0: POKEF—1,15 

77 FPRINT’LW"SFOKEP-10,242: F0OKEP, 158 i 
80 PRINT"ERSM%WF IELBESCHRE IBUNG: BEBBF===-=2Sso22s0smeee 4 
E1 FRINT"ERRE#IE MUESSEN ALS -0OMM-BANDANT EINES »ERSTO- BERERS DIE FEINDLICH-" } 
BZ PRINT"BBIEEN —IDOTE MIT GASSER |DMBEN BEHARKEN. " | 
33 FRINT en, PTEUERUNG ERFOLGT UEBER DEN “DYSTICK:*" 

RERERPRBBRBETE #1": POKEIYB,O:WAITIFE,! 
B5 FRINT Nurz n PR INT "re “OYSTICK: u" 








97 PRINT "MIR IREBUTTON 
38 PRINT "REBIOBEN-LINTEN FERHEIDER YPLOSIOM” 
TarıR Bm #1 =: "+ FOKE198, OsWAITIFR,1 





30 FÜKEP, 104: POKEP-10, 240 i 
91 PRINT" BITTE LADEN SIE NUN DEN 2. TEIL VON .  BBUB-ZONEg " 


72 NEW 


2. Programmteil 


P=368979: POKEP-4 „0 
F%=20720: JD=37154: POKEP „BzPRINT"G"POKEP-10, 242: POKEP-1 ,15: POKEP-3,0:11=785& 
IFPEEK (J0-3) =62THENPOKE646 , INT {RND (. ) #7) : BOT0S 
POKEP ‚14: HD=7832: BD=7844: V=1: SH=9: PRINT "(j":GOTO& 
PRINT"EBH-ATASSETTE STOPPEN! "3 :60T02 
PRINT"E" = FRINTTAB (21+INT {RND (1) #5) ) "REREREEERERISSLLES KLAR 7” 
IFPEEK (1977) =64THENPOKEP-2, INT (250+4&RND (0) ) : POKE#46 , INT {RND (.)*7) :G0TD& 
FOKEP+2, 160: PRINT"L"zPOKEP, 104: FOKEP-10,255 
Als=" H SEE JKL"SAZS="UT AUMERE IKL "= B2=9: TIE="000000" + SC=03 POKEP-2,0 
10 FORI=7680107723: POKEI ‚34: POKEI+F% ,0:NEXT: PRINT "EERh. EBOMBS: BRBBISCORE: " 
11 PRINTER U Yrriug "zFORI=8120T08®185: POKEI „34: PDKEI+F%,0:NE 
xT s 
| 12 FORI=8098T08119:POKEI ‚36: POKEI+FZ „0: NEXT: PRINT " EURER 
UVAXYERBENIg ! " 
13 PRINT"RERRRRERETL\ 1*":0=160: GOSUB2O: PDKEP-3 „0: POKEP-2 „Os POKEP+2,38 


SONG ODUNMO 
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14 





14 FOKESSS, 11: PRINTER 

POKEI+F% ,O:NEXT 

17 51=S5h: HLSDLLEISED: DIEBE FI$="000000"; 07025 ? 
Et BESSERE . BERN | ENDPUS BB ARST SIRREESER 





SEHMMMMMMEHMRISMMANMM" : FORI=7831 TDOEO9FSSTERZ2: FOKEI „239 









ERRERBBBBIGEVER" : IFPEEK (J0-3) < 1OOTHENFORI=7837707958: POKEI, 32: POKEP-3,I- 
7705: NEXT: POKEP-3 „O0: RETURN 

22 POKE&46, INT {RND (1}#7) : C=C-2: IFCXSSTHENC=3B: POKEP-2,254 

2% POKEP+2,C: EOTO2O 

24 POKEP-4,INTIRND(1}*3)+251 

25 IFR2< 1 THENPRINT 'EEREIGGEeR ERBEISORRY EERERRBRNO BOMBS ! ": FORI=128T0250STEP. 1:P 
DKEP-3,1:NEXT: RUN 

26 POKEHI+ (V*22) +22, 32: POKEIND, 127: J=PEEK (JO-Z} r J1=PEEK (40-2) 2 IFSCHZOTHENSOTO200 
27 PÜKEP-4,0: IFJ< 1OOTHENBZ=B2-1:GOTO100 

28 IFI=110THENA$=A2$:51=31-1:Bi=B1-1: IFS1< 1DRB1<7BZ4THENS1=1:B1=7836 

29 IFJi=119THENA$=AIS: SI=S1+15B1=Bi+1: IFS1 >160RB1>7851THENS1=16: B1=7851 

30 IFJ=122THENV=V-1: IFVCLTHENV=1 

31 IFJ=118THENV=V+Hl3 IFVSLOTHENV=10 

32 IFGH=1THENUT=UI-13 IFUI<RND (. )*ZTHENGH=0: SC=SC-3: PDKEUI1+UI+1+ (V2x22) „322 POKEU1 
+UI +24 (V2822) 32 

33 IFGH=1THENPOKEUI+UI+ (V2*22) „Os POKEUI+UT+1+V2822) , 1: POKELH-+UT+Z+ (V2822) „32 








u) POKEHI+ (Vx22) +22, 159: PFDKEHI+WVRZII HA, 7 

7 PRINT" SIEMPREREN]" EZ" upepeleöeiehel" ; INFESEI PIE" 

33 IFEH=OTHENUB=RND (.) : IFUB>. STHENVZ=INT {RND {1}#10} +1: UI =V2+55 5H=1: POKEDI+UIH (VZ 

*22),0 

37 IFUI=V2+6THENFOKEU1+1+U1+(V2x22) , 1: FOKEUI+ WEHZZI +UI+2,32 

40 IFUI=Y2+6THENFORA= (Ui4+U +14 (VIRZ 2)  TO(U1+ (V2*22) JSTEP-1 + POKEA+FY „O2 NEXT 

41 GOTO24 

100 POKEHI+{V#22)+22,15%7: 2 FORI=B1TO LE IB1+ WWR22 7) -ZIISTEP22: IFFPEER CI} S >3Z2THENGOTOI 
07 

101 FOKEI,„2:POKEI+F% ,2:FOKEF-2, 160: FORH=1 TD30: NEXT: FOKEI „32 

10? NEXT: IFFEEK {I+22)3< 320ORFEER (I#+1I< >3ZORPEEK (I-1)% >3ZORPEEK (I-223< >32THENGOTOI 

o8 

103 FOKEI,„S:FOKEI-22,4:POKEI-1,5: FOKEI+1 ,5:POKEI+22,7: FORA=15TDOSTEP-.S:POKEP-1, 

AS PFOKEI+F%, INTIMISNEXT 

104 FOKEI „22: FOKEI-22,32; FOKEI+22,32: FOKEI-1 ,32: FOKEI+1 „32: POKEF-2,0: FPOKEP-1,15: 

GOTDE6& 

107 IFI<HCCBL+ (V822) )-22) DORIS HC (BI+ (VR22) ) -A4) THENPOKEI „32: FOKEI+22,32:POKEP-2,0 
:G0T035 

108 FOKEI„3:FÜKEI-272,4:FOFEI-1,5: FOKEI+1, &: FOKEI+22,7: FORA=ISTOOSTEF-. 4: POKEP-1, 

A: FOKEI+FX,INT(CAI:SNEXT 

1097 FOEEF-1,15: FORT=1T010: FDKEP , INT (0+255# (RND (O) I = FOKEF-3,1INT (Z230+4#=RNDIO) ) NE 
ST:FOKEF-3,0:POKEF, 104 

110 POKEP-2,0: FOKEP- 1,155 a 23 POKEI-22,32:50=5C+{ (20-9729 /A:B2=R 

2+15 IFB2>FTHENB2=9 

ı1i FOKEI-1,22: FOKEI+1,32:6H=0 

11? FOKEUI+UI+ (V2*r22) „22: POKELIL+UI+1+ (V2#22) „32:6G0T024 : 

200 FRINT'ERBRERIGE ES IST UNGLAUBLICH! ! .DU HAST WEBER #20%* FUNKTE INNERHALB 
VOR" 

201 PRINT Bar "MIDECTIS, 4,13". "RIGHTS (TIF,2)5"* MINUTEN GEMACHTERRBBERRR! ! ! "FF 

ORI=-1T010 

202 FORY= (P-5) TO{P-2) : FORI=255T01285TEP-17: FOKEY,„J:FORT=(P- SITE(P-2): FOKET „GC: NEX 

T=:NEXT=NEXT . 

203. NEXT:FRINT"N@ DU WIRST HIERMIT ZUM = BHSERIGADEGENERAL EHE BEFDER 

DERT!" © 

204 FORT=229T02055TEP-. 1:POKEF-3,T3POKEP-4, (T+11) 2: NEXT: POKEP-3,0:FPOKEPF-4,0 

205 FOKE198,0:WAIT198,1:RUN 
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Der bewährte Typenrad-Drucker MS-15 
von MICROSCAN wurde drastisch im Preis 
reduziert. Der empfohlene Endverbrau- 
cher-Preis beträgt nunmehr DM 999,-— 
inkl. MWSt. 

Damit steht jetzt dem Fachhandel ein er- 
folgreiches Modell der 15 cps-Klasse für 
den mittleren und unteren Bereich zur 
Verfügung. 

Dem professionellen Charakter dieses 
Druckers entspricht auch seine Ausstat- 
tung: In der Standard-Ausführung enthal- 
ten sind die Schnittstellen Centronics (pa- 
rallei) und V24 (seriell). 

Ferner ist zum Preis von DM 1.098,- inkl. 
MWSt. das Modell MS-15VC für die Com- 
modore VC-Serie anschlußfertig lieferbar. 
Diese Ausführung besitzt neben den bei- 
den Standard-Schnittstellen parallel und 
seriell zusätzlich die Commodore VC- 
Schnittstelle. Hierdurch bleibt der Drucker 
bei einem späteren Wechsel auf ein hö- 
herwertiges System weiterhin einsetzbar. 
Da der Drucker in seiner Basisversion Dia- 
blo-kompatibel ist, bestehen keine 
Schwierigkeiten bei der Integration in die 
gängigsten Textverarbeitungs-Program- 
me. 

Ferner ist die VG-Variante mit den Texto- 
mat- oder Datamat-Programmen pro- 
blemlos lauffähig. 


Ein neuer 


Die Beschäftigung mit dem Homecompu- 
ter wird interessanter und erfolgreicher, 
wenn man auf wohldurchdachtes Zube- 
hör zurückgreifen kann. HAMA präsen- 
tiert zur Funkausstellung erstmals sein 
markt- und verbraucher-gerechtes Com- 
puter-Zubehörprogramm. 
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Es kann sowohl DIN A4-Einzelblatt oder 
Endlosformular bis zu 12 Zoll Breite dank 
eines eingebauten Traktors- und Frik- 
tionsantriebes verwendet werden. Der 
Nutzen beirägt 1 Original und 4 Durch- 
schläge. Das Gerät besticht ferner durch 
seine Bedienerfreundlichkeit. Für den An- 
wender sind sämtliche wichtigen Bedien- 


hardware. 


MS-15, der Schönschreib(Typenrad)-Drucker 
für alle Home- und Personalcomputer 


und Kontroli-Elemente an der Frontseite : 


übersichtlich angeordnet. Gleiches gilt für 
die an der Rückseite befindlichen DIP- 
Schalter. 


Für die individuelle Textgestaltung steht 


eine Vielzahl von Typenrädern zur Verfü- 
gung. 


Sortimentsbereich bei HAMA: 


Besondere Schwerpunkte bilden die Ver- 
bindungs- und Verlängerungs-Kabel so- 
wie zahlreiche Adapter, Disketten und Ar- 
chivierungshilfsmittel. Dem Homecompu- 
ter-Freak werden viele kleine, nützliche 
Dinge angeboten, die er bald nicht mehr 
missen möchte. 


| Compute mib 


Wir werden an dieser Stelle einiges aus 
dem neuen Lieferprogramm der Fa. HA- 
MA vorstellen. Ein wichtiger Bestandteil 


die Verbindungskabel. HAMA hat die Verbin- 
dungskabei Gomputer/TV-Gerät, Compu- 
ter/Peripherie, div. Verlängerungskabel 





: für den Einsatz des Homecomputers sind 
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report 


dungen können die Ursache sein. Für all’ 
diese möglicherweise auftretenden Pro- 
bleme hat HAMA einen Teil seines neuen 
Computer-Sortiments entwickelt. Reini- 
gung und Pilege solite auch der Home- 
computer-Benuizer nicht unterschätzen. 
Aus dem Sortiment der Pflege- und Reini- 
gungsmittel wollen wir einige herausgrei- 
fen, pars pro toto, die besonders häufig 
benötigt werden: 


Reinigungsdiskette Naß 5 1/4” 


für den Lesekopf in Disketten-Laufwer- 
ken. Die Reinigungsdiskette wird mit der 
beiligenden Flüssigkeit angefeuchtet und 
kurz in der Floppy-Disk laufen gelassen. 
So haben Sie einen oder beide Leseköpfe 
speichersicher gereinigt. Die Reinigungs- 
diskette wird in einer Schutzhülle gelie- 
fert. 





und Abzweigadapter Joystick mit für die | verbindungen sind zusätzlich durch Sche- | Typenreinigungs-Spray 


in Deutschland verbreitetsten Homecom- | ma-Zeichnungen dargestellt. entfernt gründlich alle Farbreste und 
puter-Anschlüsse. So werden alle Commodore-Anschluß- Ablagerungen an den Typenrädern des 
Dieses neue Sortiment istim Katalog nach | probleme mit Hilfe des neuen Gomputer- | Druckers. Ein aufsetzbarer Pinsel unter- 
Einsatzzwecken gegliedert und die Steck- ı Kabelsortiments gelöst. stützt die Reinigung mechanisch. 


Ebenfalls neu ist das Reinigungs- und Pflegemittelset rund um den Computer. | Antistatik-Spray 


dient zum Aufsprühen auf Teppiche, Fuß- 
Funktionsstörungen am Homecomputer, | Datenverlust bei der Datenspeicherung ... böden, Vorhänge Möbel. nn, eine 


Kontaktprobleme bei der Verkabelung, | Staub, Abrieb, Schmutz, statische Aufla- | \yesentliche Reduzierung der statischen 


Aufladung im Arbeitsraum. Eine ähnliche 
Wirkung erzielt man mit dem Anlistatie- 
Tuch, das vor allem zum Reinigen von TV- 
Bildschirmen und Gehäusen verwendet 
wird. Es ist weich und fusselfrei, seine 
Wirkung überträgt sich auf die behandel- 
ten Geräte. 
Der einfachste und trotzdem wirkungsvol- 
le Schutz vor Schmutz und Staub bei 
Nichtgebrauch wird erzielt mit den Ab- 
deckhauben für Monitor, Datenrecorder, 
Tastatur, Floppy-Disk und Drucker. Diese 
Abdeckhauben gibt es für die gebräuchlich- 
sten Zentraleinheiten und Peripheriegerä- 
te im Homecomputerbereich. 





Weitere Informalionen hei: 

HAMAPHOT KG Hanke + Thomas, Post- 
fach 80, 8855 Monheim/Bayern, Telefon 
09091/1011 
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_programme 


The Maze Graze Game für den Commodore 64 





Ein Super-Taktik-Irrgartenspiel für zwei Personen 


Sicherlich kennt jeder Leser dieses Spiel. Zwei Spieler starten am sel- 
ben Punkt und müssen den Ausgang aus einem Labyrinth finden. 
Wer zuerst am Ausgang ist hat gewonnen. Das ist zwar eine sehr 
knappe aber auch sehr treffende Spielbeschreibung. Das Spiel ist 
aber deshalb sehr interessant und abwechslungsreich, da es ver- 







































I REM HEN HF ER HEREFE REH 
= REM* THE MAZE GRAZE GAME IS * 
= REM« WRITTEN BY XERXES * 
4 REM#* COFYRIGHT 1985 BY XERXES * 
5 REM#* XERXES 15 THE SYNDNYM DF * 
6 REM# JOERN MUEHLENEBRUCH %* 
7 REM# 637 USINGEN 1 * 
g REM# JOn,-SEH„-EACH STR: 87 * 
FG REMAKE I HH NER HH HN KH ER ENH 


i0 REM VARIABLEN 


>06 FORT=1T024: FDRO=1T038: A#(T,O)=R#:NEXTO,T 


9 L2=51D+r7:H2=510+8: W2=5S1ID+11: A2=5ID+ 12: N1= 
85 DIM Mi140}:N=1265:D=1:W=0 


97 GÜSUBI1OOD 

1090G REM LÄABYRINTH 

ilG POKES3255,43:FORT=ZTDZEISTEF2 
120 FORO=ZTOF?STEF2 


150 AF(IT,W=D#F:NEXTW: AS CT „W+1) SR: O=dH_ 
170 NEXTO 

1753 NEXTT 

180 FORT=3T0215TEP2 

170 FORT1=ZT0375STEP2 

200 IFRNDt1)>0.4THENAFIT,„T13=0F:60T0210 
210 AFLT,TIr1)=R#:NEXTT1,T 

220 X=2: REM HAUFTWEG 


250 FORT=XTOX+L 

260 IFT>37THENAS (Y,T)=06:G0T01300 
270 A$(Y,TI=0$ 

250 NEXTT=X=X+L:RETURN 

300 FORT=YTOY+L 

310 IFT>22THENRETURN 

320 A${T,X)=0% 

330 NEXTT: Y=Y+L:RETURN 

350 FORT=YTOY-LSTEP-1 

360 IFT<3THENRETURN 

AS(T,X)=0$ 


20 PFOKESZ245,43:DIMA$ (24,40) ,At12) ,Z$ (1): R$= 


20 AtDI=e2:AlDI=2: AG) =56321: Aiö) =562320:A(MI=0:AtB)=b: u 
30 5ID=-54272:_L1=5ID:H1=5ID+1:W1=51ID+4: A1=51ID+3: N1=5ID+5 


70 FOKEWI „O0: POKEW2,O:FÜKEA1,0: POKEN1 „240: POKEA2 , 95: POKEN?, 247: POKEM,O 


70 FORF=1T0124: READM FI S NEXT: FOKEW2,17: FOKEM, 15: F=0 


i50 L=INT (RND (1) #2) #4: FORW=RTDO+L_: IFW=37THENAS (T „W) =08: BOTO175 


>30 EI=INT (RND {1}*33) #2+2: Y=EI:RI=1:L=INT (RND (1) I) #2+2: A$ (Y,1) =0#: 605UB250 
240 RI=INT{RND{1)3#5)+1:L=INT (RND{1)#3) #2+2: ONRIGOSUB2S0, 200 , 350, 300 , 250: GOTD240 





schiedene Spielstufen und unterschiedliche Schwierigkeits- 
grade gibt. Weiterhin können Sie Ihren Mitspieler ärgern, in- 
dem Sie die Wege durch Blöcke versperren. Vielleicht ver- 
liert Ihr Mitspieler auf diese Art die Orientierung. Das Beste 
ist, Sie tippen das Spiel ab und besorgen sich so schnell wie 
möglich einen Mitspieler. Durch die ständig wechselnden 
Labyrinthe ist bei diesem Spiel dauernd Abwechslung und 
Langeweile dürfe eigentlich nicht aufkommen. 


Gespielt wird mit Joystick. 


er) zw . 0="28 Il 


=51DP+13:M=5ID+24 


Sind Sie schon verwirrt?1? 


Nein? Das Listing ist ja auch 
noch nicht zu Ende. 
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z20 
300 
410 
420 
430 
440 
450 
450 
470 
490 
495 
500 
510 
512 
515 
520 
Sac 
550 
540 
570 
575 
at= 13} 
595 
Eri:J8] 
57 
592 
593 
500 
&io 
“2a 
530 
7a0 
705 
710 
720 
730 
750 
755 
780 
77a 
790 
BO0 
700 
905 
310 
915 
920 
gas 
30 
935 
340 
950 
355 
90 
965 
970 


NEXTT= Y=Y-L: RETURN 

REM AUSDRUCK 

FOKES3280 ,0: POKES32B1,0 

PRINT"LEE*SSPC{10)5 "BTHE MACE BRAGE GAME" 

PRINT"E" ; SPC (39) + " BREIT IRTHEESISE HERTIIELSE HEN EURE " 

PRINT" BESSERE ERSIHEERIGE RER S EERITT IRTOAIRUR IIRRTT "" 
DNDISOSUB44A0 , 700 , 750,700: 6070495, 

PRINT "EIER" ; 

FORT=1T023:PRINTSPC (193 :FORT1=1 T038: PRINTA$£T,T1) 5: NEXTTI: PINISERTLZESNERT 
RETURN 
POKES3265 ,27 

FOKEM,„i5:A{3}=EIsAt4)=EI:REM GAME 
FORT=0T01:POKEW1 „129: IFA (7+T) =1 THENPOKEW2 , 17: A(7+T7) =0: 60 T06&00 

J=A(S+TIE IFPEEK (II =ZIIORPEEK {J}=111 THENSDSUBA20: GDTOKGLO 

J=A(5+T) >H= 1 PEEK {J) AND4)I =0) - (PEEK (J) ANDB) =0) = POKEH1 „20+1INT (RND (1) #5) 
V=tIPEEK GPANDI)=0)- (PEEK (J) AND2) =03 Ss POKEL1 , 10O+INT {RND (1) #100}: FOKEW1 „17 
X=At1+T) 2 IFX+H<ZTHENH=0 

Y=Al3+T}2 1IFX>37THENPOKEW1 „128: POKEW2, 14: EDTOF00 

IFASC (A$tY+V.X+H)) <> 146 THENPOKEW2,17:FORQ=1T0100: NEXT: POKEW2, 16:3 GOTO410 
IFDI=2THENX=X+H: Y=Y+V: GOTOSYO 

POKE211,X: PDKE214, Y:5Y5587323 PRINT" " 

X=X+H: Yayıy 
POKE211 ,X:FOKE214,Y:5Y558732: PRINTZ$ (T} :GOTDA00 
FOKE213,X-1:POKE214,Y-1: 5YS58732: PRINT"E" 5 AS {Y-1,X- VD) 3 A$Y-1, X) 5 AFtY-1,X+1) 
POKEZ11,X-1:POKE214,Y:5Y3587 32: PRINTAF(Y,X-1I 31 Z# (TI; AS(Y,X+1) 
IFY>=2STHENG00 
FOKE211,X-1:FOKE214, Y+1:5Y558732: PRINTAS (Y+1, XD 3AFtY+1, X) 3 AS LY+1, XD) 
AHTI=ALLATI: A1I+TI=A(S+HT): AU+TISKEA(HHTISY 
FOKEWi ,128:NEXT T:GOTDS10 

IFID=OTHENRETURN 
FOKE211 ,A(9+T) =POKE214 ,A(11+T):8Y558732:PRINT"IE "RETURN 
PRINTER" ; b 
PRINTSPC {1)5 :FORT=1T038:PRINTA${1,T)3 aNEXTTSPRINTSPC (1); 
FORT=ZT022: FRINTSFE (VI 5ASIT,1ISSPE (IS) 5 AST „SEI ZSPCCLI HS NEXT 
FRINTSFE (1) 3 2FORT=1TO38: PRINTA$ (23, T} 3 :NEXT 
RETURN 
PRINT"EREE" 
PRINTSFPC (193 :FORT=1TD3B: PRINTAS(1,T)3eNEXTT:FRINTSPC (1)35 
FORT=2T08: PRINTSPEC (135 2FORT1=1T038: PRINTAF(T,T1}3 2NEXTT1ZPRINTSPC (133 2NEXT 
FORT=7T015: PRINTSPE (1) 5A$(T,1)5 SPC (36) 3 A$ (T 38); ;SPE(LIESNEXT 
FORT=14T023: PRINTSPE (1) 5: FORTI= 11038: PRINTAS (T „T1) 5 =NEXTTI= PRINTSPC (1) 5 2NEXT 
RETURN 

Z=2: R=0: W=0: Of=""+LEFTFZSCTNI,, DD 
FOKE211,7:POKE214,8:5Y558732 
PRINT@$3 "YOU FOUND THE EXIT FIRST!"=PRINT 
PRINTSPC (2);0$; "DO YOU WANT TOD SEE THE LABYRINTH ON":PRINT 
PRINT@$; SPC (8) ; "SCREEN OR ON FRINTER (S/P} ":PRINT 
FRINTSPC (11) 3 0%3 "ANOTHER GAME LY/NI?" 
BETA$: GOSUB1800+ IFA$="Y" ORAF="N"ORA$="5"ORAS="P"THENFSO 
IFLEFT$(O$,1)="l" THENOS="E"+LEFTS {ZS CT) „1326070905 

Bs="g"+LEFTF(CZECT) „19 :6DT0905 

IFAS="N" THENPRINT"(": POKEWZ, 16:END 

IFA$="Y" THENPOKEW2 „Os RUN 

IFAS="P" THENGDSUB1500 

IFAF="S"THENDI=1:G05SUB1500 
EGTOFOO 





1000 REM MENUE 

1010 POKES3280,0: POKES3281 ,0:POKE646,7:PRINT"i® = 
1020 PRINTSPE (10) 5 "BRITHE MAZE GRACE SAME" 

1030 FRINTSPE (LO) 3 "= 
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1040 
1050 
1080 
1070 
10B0 
1081 
1082 
108953 
1093 
1090 
1095 
1095 
1100 
1110 
1115 
1120 
1130 
1140 
1150 
1180 
1170 
1200 
1210 
1220 
1230 
1240 
1250 
1240 
1270 
1280 
1270 
1300 
1510 
1320 
1330 
1340 
1350 
1360 
1370 
1590 
1400 
1410 
1420 
1430 
1940 
1500 
1510 
1320 
1330 
1540 
1550 
1560 
1400 
1605 
1610 
1520 
1830 
16540 


ren 
inJU 


14,50 
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PRINT=PRINT=PRINT"ENTER LEVEL OF DIFFICULTY ?" 
PRINT:PRINT"1.SEE THE WHOLE LABYRINTH® 
PRINT=:PRINT"Z.SEE ONLY THE WALKED WAY" 
PRINT:ZPRINT"3.SEE ONLY THE HIGH AND LOW PART" 
FRINT=FRINT"4.SEE NOTHING" 
POKE211,9:POKE214,21:8Y858732: PRINT" pm  — — — — — 
FOKE211,9: POKE214,23:5Y858732: PRINT" L Su 
POKEZ11 ,9: POKE214,22: 5Y559732: PRINT® | 1" 
At=" THIS PROGRAM" 
A$=A$+" 15 WRITTEN BY XERXES.PLEASE COPY IT.IT WANTS TO TRAVEL." 
AS=AS+"THANK YOU FOR PLAYING THIS " 
A$=A$+"GAME.I HOPE YOU ENJOY IT! 
Z=5: T=9: Y=10: Q=PEEK (1024+40%*Y) :POKE1024+40%Y ,Q+128: PIKESS245 ,27 
=7# ( ({PEEK {A(5) JAND1)=0)- ( {PEEK (A (5) ) AND2) =0) ) : GDSUB1200: GOSUB 1800 
IFH=OANDPEEK (A (5) ) <>239THEN1110 
IFPEEK (A (5) ) =2SFTHENPOKEWZ , 16: GOSUB1240: POKEL2, 100: POKEH2, 20: D=1: RETURN 
O=PEEK (1024+40#Y) ı POKE1024+40*Y „Q-128 
IFY+H< 1OTHENY=18 
IFY+H>LATHENY=B 
Y=Y+H: O=PEEK (1024+408Y) : POKE1074+40%*Y ,D+128B 
SDTO1110 
T=T+1: IFT<2THENRETURN 
T=0: P=P+1: IFP+ZO=161THENP=1 
POKE211,10:POKE214 ,27:5Y558732 
PRINT"B";MID$ {A$,P,20) RETURN 
DI=0-485 IFDI>ATHENID=0: PRINT"K" RETURN 
POKE211,9: POKE214 „22: SY858732: PRINT" | [® 
POKE211,11:POKE214 , 22: SY358732=PRINT"SET BLOCKS {Y/N ?" 
BETAS:= IFAS<H"Y"ANDAS< >" N" THEN1270 
IFAS="YV"THENID=1 
PRINT"U"=RETURN 
REM VERIFY 
FORT=3TDOZ1STEPZ 
FORQ@=43T0375TEP?2 
IFAS (T-1,0-1) =DSANDAS (T, 0-2) =O$ANDAS (T+1,0-1) =DSTHENAS IT, DI=R$ 
NEXTGO,T 
FORT=2TO10STEP2 
FORG=Z2TOX7STEP2 
IFAS(T,D+1) =RSANDÄSTT,O-1) =REANDASLTHL, G)=RSANDAS (T-1, DD =RSTHENAS (T+1,D)=0$ 
NEXTQ,T 
FORT=10T022STEP2 
FOROA=Z2TO37STEP2 
IFA$ (T,D+1) =RSANDAS (T ,D-1)=REANDAS (T+1 , DI =REANDAS IT-1 „BI =RETHENAS(T-1,D)=08 
NEXTR,T 
E0TD400 
REMAUSDRUCK AUF PRINTER 
OPEN „Ar CMDA 
PRINT"THE MAZE GRACE GAME" 
FORT=1T023:PRINTSPC (1); 
FORG=1T039: PRINTA$(T,D35 
NEXT: PRINT"O"5 NEXT: T=1 
ELOSE4: RETURN 
REM AUSDRUCK AUF SCREEN 
PRINT"LPSSPCIP); 
PRINT"EHIT ANY KEY TD GO ON'g" 
PRINTSPC (1) 3: FORT=1TD23 
FORB=1T038: PRINTAS(T,@5 
NEXT: FRINTSPC (2) 3 2NEXT: T=1 
PRINTER": SPC II RETTET RN" 
PRINT" BERRERNTIEIHIRBE DER ISTIERTIEERSAIRRI TAT "" 
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programme 


> RETURN 
REM SOUND 


FÜKEW2 , 16: B=0: D=D+3 
o IFMiDI FOTHENIBTO 


IFR=SRTHENK=O: DeD+3 
IFDINTHEND=1: W=0: R=D 


zo 
ZOO 
PAS WER) 
OD 
20450 
2050 
Zus0 
zo70 
os 
P.ialrie] 


DATA18,39,0.5,219, 
DATA 


SP.I2 


DATAID, 





Es gibt für den C-64 sicher schon viele Va- 

rianten von Listschutzmethoden, die alle 
auf dem gleichen Prinzip basieren, den 
Listvektor zu verbiegen und 'stop’; 'stop- 
restore' außer Betrieb zu setzen. Dies 
funktioniert allerdings nur dann, wenn das 
Programm mit einem Autostart {z.B. Aus- 
gabe 5/85 Seite 16 ff.) versehen ist. Den- 
noch läßt sich das Ganze durch eine Inter- 
ruptroutine wieder rückgängig machen. 

"Wir schlagen deshalb eine ganz andere 
Vorgehensweise vor: 
Eigentlich hesteht das im Speicher befind- 
liche BASIC-Programm genauso wie vor- 
her, jedoch ist es 'getürkt’, und zwar in der 
Form, daß man glauben muß, man hätte 
ein Maschinenprogramm vor sich. Dazu 
bereitet man den Rechner wie folgt vor: 


Man tippt 

10 SYS 2076 

danach im Direktmodus 

Pake43,1:Pake 44,16:Poke4096,0:NEW 

Der Rechner soltte sich mit ’READY’ mel- 
den, ansonsten hat man einen Fehler ge- 
. macht! 


Nun tippt man folgendes Programm ein: 
10For =0 To 80:Read B’/Poke I+ 
2076,B:Next:Stop 





20 


FOKEL? ,M(D} : POKEHZ,M(D+1) : POKENZ 
DATAZO, 26,0.5,219,.32,0. 


DATA18,39,0.5,58,89,0. 
LATA297 „34 ,0.5,219,43,0.5,39,52,0.5,219,82, 
DATA20 ,24,0.5,217,32,0.5,207, 
DATAO.25,18,39,0.25,18,39,1 


Listschutz für Ch: 54 





B=B+1: IFM(D+2) #=Z>ETHENRETURN 


IFRSRORW=OTHENB=W +1: R=M (D+1) 2 Deb+MIBDI : GOTDIESO 


„17: RETURN 


5,13,37,0. "5,219, 43,0.5,218,48,0.5,21 
32,0.5,-24,1,0 
DATA2G7 „34 ,0.5,219,43,0.5,39 "52,0.5,138,598,0.5,5,62,0.3,138,58, 
„0.5,219,43,0.5 
DATA20,26,0- 5,219,22,0.5,18,39,0.5,219,42,0.5,118,46, 
39,0.5,219,32,0.5 

5,138,58,0.5,58,49,0.5 


0,5 





20 Data169,99,133,43,169,8,133,44, 
169,28,141,24,3,169,8,141,25,3 


22 Data169,62,141,20,3,169,8,141,21,3, 
32,89,166,76,174,167 


24 Data162,0,230,162,208,6,230,161, 
208,2,230,160,56,165,162 


26 Data233,1,165,161,233,26,165,160, 
233,79,144,6,134,160,134,161 


28 Data134,162,76,52,234,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0,0,0,0, 


Die Prüfsumme beträgt 7945. 


Nach ’RUN’ gibt man im Direktmodus Po- 
ke43,99:Poke44,8 ein. 

Jetzt kann man das Basic-Programm ent- 
weder laden oder eingeben. Falls das Pro- 
gramm ’STOP’ oder’END’ enthält, muß vor 
diesen Befehlen jeweils ein Poke 43,1:Po- 
ke44,8 ergänzt werden. 

Vor dem Abspeichern noch ein Poke43,1:- 
Poke44,8 

Das Programm kann in Turbo-Arrow-Tape, 
Normaltape, Diskette oder sonstwie abge- 
speichert werden. 

Nach ’List’ direkt nach dem Wiederladen 
erscheint lediglich der SYS-Befehl. 
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3,43,0.5 


2.3 


0.5,219,43,0.5 


34, .05,225,36,0.5,18,39,0.8,18,37,0.25,18,37 


| Man fragt sich nun, wie kann das ange- 


hen, daß ein Basic-Programm zum Ma- 


‘schinen-Programm wird, Das soll nun 


kurz eriäutert werden, wobei nur das Ma- 
schinen-Programm betrachtet wird. 

Da zwischen dem 'SYS-Befehl’ und dem 
Basic-Programm das Maschinen-Pro- 
gramm steht, wird der Basic-Programm- 
speicher auf $0863 verschoben. Danach 
’stop’ und ’stop + resiore’ außer Gefecht 
gesetzt. Anschließend folgt der Befehl 
'CLR' und der Einsprung in die Interpreter- 
routine, 

Ein übliches Problem beim Sperren der 
'stop’-Taste muß jetzt noch gelöstwerden. 
Dieses Problem besteht darin, daß, wenn 4 
man die 'stop’-Taste außer Betrieb setzt, 
auch gleichzeitig die interne Uhr nicht 
mehr geht. Daraus folgt, daß der zweite 
Teil des Maschinenprogramms nichts an- 
deres istals eine genaue Kopie der Routine 
für das Setzen- der internen Uhr. 

Jetzt leuchtet auch ein, warum unser zu 
schützendes Programm im Speicher erst 
ab 50863 steht. 

Wenn man das Programm nach geraumer 
Zeit wieder einmal Listen möchte, muß 
man nur wieder Poke43,99:Poke44,8 ein- 
geben. Danach kann man wie gewohntLi- 
sten. 








Das Spiel Super-Breakout ist ein Ge- 
schicklichkeitsspiel bei dem Sie mit Hilfe 
eines Schlägers einen Ball gegen eine 
Wand aus Steinen schlagen müssen. Trifft 
der Ball auf einen dieser Steine, ver- 
schwindet dieser vom Bildschirm. Für je- 


Super-Breakout 


den getroffenen Stein erhalten Sie einen 
Punkt gutgeschrieben. Für alle t00 Punkte 
erhalten Sieeinen Freiball. Am Anfang des 
Spieles haben Sie fünf Bälle. Insgesamt 
stehen neun Schwierigkeitsgrade zur Ver- 
fügung, wobei Sie individuell Ihren 


programme. 


Commodore 64 


Schwierigkeitsgrad wählen können. Ge- 


steuert wird mit dem Joystick. Das Spiel 
ist vollkommen in Maschinensprache ge- 
schrieben. Lediglich der Bildschirmauf- 
bau und die Abfrage des Schwierigkeits- 
grades sind in. BASIC geschrieben. 


FHHEHEKFEFEFKEWEEHTECHTERTTTIT TH TH TH FF 

###HH#tte SUFER-BREAKOUT EHRE 

EEK N NEE EHE 

s### U 1585 DILLINSERSUOFT ##eR#+ 
ZHEEFFHERERTHESIHHE NH FE HH FE H ER HNN HH 

GO RIM ®8 BRITTEN BY KLAUS DILLINGER #* 

70 REM BER EREHHRHRTIKENÜI HK IHH HU NH FERNE 

7 PRINTÜRERIER SUFER-EREAFKRDUFT " 

92 FRINTERRRE COFYRISHT 1585 DILLINGERSOFT" 

100 FORT=B1F2TDBE1F: READA: FOKET „A: S=S+Ar NEXT 

105 IFS: F2BAZTHENFRINT"SFRITE-DATA-ERROR" SEND 

i1lö FORT=491527 TOS0O0&8: READA: FOKET ,ArL=L+A: NEXT 

115 IFLS FIOSBASTHENPRINT"MASCHINEN-DATA-ERROR": END 

126 V=52248: FOHE2040,128: FPOKE2041 ,129: POKEV+16 , Or: PÜKEV+21 „3: POKEV+29,1 
130 PDEEV, 1803 POKEV+1 „228: FDEKEV+Z E17 9: EDEEUS SS, LOS 7EOKEYES 2 ET EDRENS 8 
140 FOKE EV+29,12: FOKEV+A4OG,1 

15G F=94272; FOKEF+5,15+16: POKEF +4 „740: FOKEP+24 ,15: FOKEF+1, 20 

200 5Y547152: F0RT=-52224T10522 50; FÜKET, 1:NEXT 
700 FRINT"WJS SEHWIERIGKEITSGSRKAD (1-9 " 
710 GETAF: IFAt='""THEN?IO 

726 IFASTIAFI ZT AFORASE (At) >G7THENFIO 

FzO G=VYAL Ar}: FOKE4F703,6575+5 

780 PRINT" USSCORE : OGO000 

800 SYS47855::: 

Bio FORT=OTO5:P{TI=PEEK (LOSG+T) NEXT 

815 PRINT"L i SIE ERREICHTEN”: 
B2G0 FORT=OTOS: FOKE1ZBAHT,F{TI:NEXT:FRINT"IRIEb] FUNKTE. " 
830 FRINT' EI WOLLEN SIE NOCHMAL SPIELEN {J/N" 

840 GETA$F: IFAF< >" T"ANDAFT F"N"THENBA4O 

850 IFAs="J'"THEN1?O 

iooO REM SFRITE- ee 

1110 DATAO,0,0,0,0,0, 

1120 DATAO,0,0,.0,0,0, 

1120 DATAO,O.D, 

1140 DATAO, 

1150 DATA15,255,240, 15, 255.240, 15,255,240,15,255, 
11&0 DATA15,255,240,0 

12106 DATAO,0,0,0,0,0 

i220 DATAO.0,2,0, 0,0 

1230 DATAO,0,0,0,0,0 

1240 DATAO,0,0,0,0,0 

1250 DATAG,53,0,0,53 

1250 DATAO, 20,0,0 

=000 REM MASCHINENSPRACHE- DATAS 

20061 DATA120,167,192,1941,21,2,1659,13,1431,20,3,98,96, 173,0, 201, 209,8,16597,16 
2002 DATA141,4,212,76,49,234,177,0,201,201,72,240, 6,206, 0,201, 76, 49,234,169 


REM 
REM 
REM 
30 REM 
0 REM 


E18) 


EALLS: 093" 


230 
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programme_ 


2003 
Pong 
200 
z00& 
oc7 
palalalm| 
Z007 
2010 
zoll 
zo12 
2013 
2014 
2015 
Z016 
2917 
ZO1B 
20197 
SOPO 
Fozi 
222 
SG23 
zu24 
Or 
TOo2& 
22? 
Zo02B8 
2079 
ZOO 
2051 
2037 
SOFE 
2024 
20353 
203 
2037 
Fa 
ZO37 
2040 
n4l 
2047 
2045 
2044 
7045 
zZads 


Feindlich gesinnte Weltraumbewohner haben auf Ihrem Planeten eine Bombe plaziert, 





DATA17,141,4,212,76,33,192,222,0,208,189,0,208,201,255,208,9,152,72,255 
DATA45,18,208,141,1&,208,96,254,0,208,208,7,152,13,15,208,141,16,208 
DATA?6,173,0,220,73,255,170,41,4,240,22,173,0,208,201,17,208,7,173,1& 
DATAZO8,41,1,240,7,162,0,160,1,32,47,192,96,138,41,9,240,250,173,0,208 
DATAZO1,47,208,8,173,16,208,41,1,2940,1,96,162,0,160,1,32,67,192, 98,162 
DATAS,254,6,4,189,6,4,201,58,208,19,167,48,157,6,4,224,4,208,7,138,72 
DATA32,172,192,104,170,202,208,227,96,162,3,254,36,4,189,36,4,201,58 
DATA208,8,167,48,1537,36,4,202,208,238,96,162,3,222,36,4,189,36,4,201 
DATA47 ,208,243,169,57,157,36,4,202,208,238,76,174,167,160,120,159,160 
DATA1SS,159,4,153,159,216,152,74,176,5,152,170,254,159,216,136, 208,236 
DATA160,39,185,199,216,153,200,216,136,708,247,169,1,141,200,216,96,17% 
DATAO,199,41,1,240,37,173,2,208,201,14,208,23,173,15,208,41,2,208,15 
DATR169,2,141,0,201,173,0,199,41,254,9,2,141,0,199,95,162,2,160,2,32 
BATA47 ,192,173,0,199,41,2,290,36,173,2,208,201,72,208,22,173,16,208,41 
DATA2,240,15,169,2,141,0,201,173,0,199,41,253,9,1,76,32,193,162,2,160 
DATA2,32,67,192,173,0,199,41,9,240,13,173,3,208, 201 ,2273,208,3,76,140 
DATA193,238,2,208,173,0,199,41,4,240,26,173,3,208,201,43,200,16,167,2 
DATA141,0,201,173,0,199,41,251,9,8,141,0,199,96,206,2,208,95,172,0,208 
DATA141,9,198,173,2,208,141,2,198,169,0,141,1,198,141,3,198,173,16, 708 
DATA170,41,1,240,3,238,1,198,138,41,2,240,3,228,3,198,173,1,198,56,237 
DATAZ,198,141,1,:298,173,0,198,56,237,2,198,131,0,199,176,3,206,1,178 
DATA173,1,178,201,255,240,26,201,754,240,11,201,1,240,7,172,0,198, 204 
DATA7 ,144,18,22,69,195,169,4,141,0,199,765,194,194,173,0,198, 201 ,226,144 
DATAZIB,167,4,170,169,2,141,0,201,173,0,198,201,8,144,19, 201, 251,176 
DATA15,201,229,144,4,142,0,199,96,138,9,2,141,0,199,96,138,9,1,76,18 
DATA194.160.120.185.157.4.201.160,240,11.176,208,246,32.216,192,104,104 
DATA76,191,174,96,173,31,208,208,1,96,173,3,208,56,233,36,74,74,78,141 
DATAO,202,169,0,133,129,169,4,133,140,165,129,24,105,40,133,139, 144,2 
DATA2S0,140,206,0,202,208,240,169,0,141,1,202,141,2,202,173,16, 208,41 
DATAZ,240,2,238,2,202,173,2,208,56,232,15,141,1,202,176,5,169,0,141,2 
DATA202 ,173,1,202,174,2,202,240,4,56,76,138,194,24,106,74,74,24,101,132 
DATA123,139,144,2,230,140,173,16,208,41,2,240,7,173,2,208,201,67,17& 
DATA14,160,41,32,15,195,176,19,160,1,32,15,195,176,12,160,0,32,15,195 
DATA178,5,160,40,32,15,195,96,32,216,192,169,0,141,16,208,169,4,141,0 
DATA197,169,160,141,0,208,169,170,141,2,208,169,164,141,3,208,206,0,204 
DATA208,11,169,8,141,0,204,22,80,192,32,28,194,206,1,204,208,21,169, 10 
DATA141,1,204,32,255,192,206,2,204,208,8,167,1,141,2,204,32,49,194, 162 
DATAO,232,224,16G,208,251,76,219,194,177,139,201,160,2740,2,24,96,16? 
DATA32,195,139,32,140,192,173,0,199,41,8,208,22,173,0,199,41,2,9,8,141 
DATAO,197,167,40,141,2,204,169,2,141,0,201,56,96,175,0,199,41,3,9,4,76 
DATAA4,195,160,0,185,106,195,32,210,255,200,192,43,2098,245,169,0,133 
DATA198,165,197,201,60,208,250,32,173,192,160,0,169,32,153,112,5,200 
DATAPOB,250,96,19,17,17,17,17,17,17,17,17,17,32,32,32,32,32,32,32 ,32 
DATAS2,66,65,76,76,22,72,77,32,65,85,93,32,33,32,32,22,32,18,82,80,65 


DATAA7,SP, 146 


die in genau zwei Minuten explodiert. Sie müssen so schneil wie möglich die Bombe fin- einer Felsspaite landen. 


den und entschärfen. 
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LEVEL 1: Sie müssen auf einer Plattform in 


Um auf dieser Plattform landen 





10/85 


programme 


| zu können, müssen Sie eine La- 
REM Hl j | serschranke passieren und dür- 
REM * VORPROGRAMM * fen die Wände nicht berühren, 
REM * zu %* da sonst der Verlust eines Raum- 


REM #  PLANET * | schiffes zu beklagen wäre, 
REM # OF DEATH + 


REM SURENNEHRRHHEN 

REM 9 LEVEL 2: Jetzt befinden Sie sich mit Ihrem 
PRINTCHR$ (144) "USPLEASE WAITRIEEIE" Raumschiff auf dem Flug durch 
DB=11:kK0=0: FORI=GTO1000: READA: IFA=-1 THENIS ein Labyrinth. 
KO=KO+A: POKE49152+1, A: NEXT Bei diesem Flug müssen Sie da- 
IFKO=T4489THENBOSUBS0: BOTO2O “rauf achten, nicht mit den Wän- 
GOTOSO den in Berührung zu kommen. 
DB=2: KO=d : FORI=OTB 1000: READAL IFA=- 1 THEN22. 
KO=kO+A: POKESZOOO+HFT „AıNEXT j 
IFKO=34253THENSOSUBSO:B0OTDSO I LEVEL 3: Sie fliegen durch einen Gang, 
GOTOAO dessen Ende Sie erreichen müs- 
DBa=F3: K0=0: FÜRI=0T01000: REABDA: IFA=-1 THENSZ "sen. 
KO=KO+A: POKES2500+1 „A:NEXT In: diesem Gang werden Sie 
IFKO=3179THENBDSUBSO: GOTO7O ebenfalls wieder von Laserstrah- 


GOTO&O len unter Beschuß genommen. 
PRINT" NO ERRORS IN DATA BLOCK "DE 


Be a Ne En LEVEL 4: Die Bombe haben Sie erreicht. 
) ntschärfen zu kön- 
PRINT"EIE| CHECK DATA BLECK"DE" ABAIN" an Zueistel: 
Er ug ND ERRORS FOUND. "  ligen Zahlencode eingeben. 
PRINT" PLEASE LOAD PART TWO NOW" | Geben nee a 
END | ge zweistelli in. 
REM Computer sagt Ihnen, ob sie zu 
' REM ---- DATA BLOCK 1 hoch oder zu niedrig war. Bei der 
DATA1697,77,141,231,5,169,7,141,231,217 1 richtigen Zahl haben Sie die 
DATAlSF 39.181, 232.5.169,7,141,232.217 B Bombe entschärft. 
DATA169,99,141,233,5,169,7,141,2%33, 217 
DATA169,97,141,234,5,169,7,141,234,217 a Gelingt es Ihnen nicht, innerhalb der zwei 
DATA167,99,141,255,5,169,7,141,235,217 Minuten die gestellte Aufgabe zu bewälti- 
DATATEF SF Lan 2SAr Sn ler Zr 1a 230, 217 gen, werden Sie zusammen mitIhrem Pla- 
DATA169,99,141,237,5,169, 7,141 ,237,217 I: foren 
DATAL69,99,141,238,5,169,7,141,238,217 E DEIENEXIDBIBIEN. 
DATA169,99,141,239,5,169,7,141,239,217 > RR: 
DATR159,99,141,2420,5,169,7,1941,240,217 4 Also äußerste Vorsicht, schnelles Handeln 
DATA169,99,141,241,5,169,7,141,241,217  . a und logisches Denken sind gefragt. 
DATA169,99,141,242,5,169,7,141,242,217 5 
DATA169,99,141,243,5,169,7,181,243,217 
DATR16F,997,191,284,5,169,7,141,243,217 
DATA1697,97,141,245,5,169,7,141 ,245,217 
DATA169,99,141,246,5,169,7,141,246,217 j 
DATA1659,99,141,247,5,169,7,141 ,247,217 Die Redaktion wünscht 
DATA169,99,141,248,5,169,7,141,248,217 ans 
DATA149,99,141,249,5,169,7,141,249 ,217 5 
DATA169,99,141,250,5,169,7,141,250,217 ] Abtippen und einen 
DATA169,99,141,251,5,169,7,141 ,251,217 | 


ruaunmco 


: Gesteuert wird das Spiel mil dem Joystick! 


DATA169,99,141,252,5,169,7,141,252,217 5 
DATA169,99,141,253,5,169,7,141,253,217 Guten Flug! 
DATA169,99,141,254,5,167,7,141,254,217 . 

5 DATA96,-1 
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338 
3397 
3409 
350 
360 
370 
z80 
390 
400 
410 
420 
430 
440 
450 
450 
470 
490 
470 
500 
510 
520 
530 
340 
550 
FO 
S7O 
| 580 
I|.590 
524 
595 
Sy 


[21638 
Be 





24 


REM Ve 

Een EEE EDER rem Ein Gomputerclub 
DATA16&9,32,141,231,5,16597.,7.1431,231.217 ; - = 
DATA149 32.141. 232.5. 169.7 1411232217 stellt sich vor: 


DATA169,32,141,233,5,169,7,141,233,217 


DATA149,32,141,234,5,169,7,141,234,217 | Im Telegrammastil werden wir Ihnen in die- 
DATA1697,32,141,235,5,169,7,141,235,217 ser Ausgabe einen Gomputerelub vorstel- 
DATA169,32,141,236,9,169,7,141,236,217 ien, dessen Ziel der professionelle Um- 
DBATA169,32,141,237,5,169,7,141,237,217 gang mit dem Commodore 64 ist. Zu den 
DATA169,32,141,238,5,169,7,141,238,217 Daten: . 
DATA159,32,141,239,5,169,7,141,239,217 e 
DATA169,32,141,240,5,169,7,141,240,217 1 Name: „CB4-USER-VH.S. I 
DATA169,32,141,2941,5,169,7,141,241,217 | Gründung: 1983 
DATA169,32,141 ,242,5,169,7,141,242,217 N Anschrift: Postfach 100905, 
‚DATA169,32,141,243,5,169,7,141,243,217 4790 Bad Oeyn- 
DATA159,32,141,244,5,169,7,141,244,217 hausen 
DATA149,32,141,245,5,169,7,141,245,217 1 Telefon: 0571/75377 
DATA169,32,141,246,5,169,7,141,246,217 Treffen: monatlich 
DATA159,32,141,245,5,169,7,141,246,217 Infos: 3 bis 4 mal jährlich 


DATA16&9,32,141,247,5,169,7,141,247,217 
DATA169,32,141,248,5,169,7,141,248, 217 
DATA169,32,141,249,5,169,7,141,249,217 
DATA169,32,131,250,5,169,7,141,250,217 
DATA169,32,141,251,5,169,7,141,251,217 


gegen Freiumschlag 
| Beitrag: keinen 
1 Ausweis: ja 


DATA169,32,141,252,5,169,7,141 ,232,217 “Alle Interessenten in der näheren oder 
DATAi69,32,141,253,5,169,7,141,253,217 H auch weiteren Umgebung können gerne 
DATA169,32,141,254,5,169,7,141,254,217 a Anfragen und Mitgliedsanträge an die 
DATEF&,-1 4 Clubanschrift senden. 

REM i 2 ! EEE ee ER en Er Be FE 
REM „un DATA BLOCK 3 -———- 

REM i 
DATA152,0,142,15,212,162,255,142,15,212,162,12,142,19,212,162,13,192,74 


DATA212,162,129,142,18,212,96,—1 


BERET 





REM # * 
REM =117TH MAY 'ES - ZOTH JUNY 'B5)# 
REM er m a nn * 
REM #= BITTE ZUERST DAS VORPFROBRANM * 
REM ®» LADEN UND STARTEN, % 
REM # DANACH DEN ZWEITEN TEIL % 
REM #* LADEN UND STARTEN. % 
REM m nn nn m a u nn a # 
REM * HEINZ BUTSCHKO # 
REM # (C) 19685 BY ı KRISCHERSTR. 2% 
REM #* #017 MONHEIM 1 
REM yommenennnmmnunn nn onen 
REM * FOR THE COMMODORE 64 

REM HHHHRRRHIEHIEIESHSHIRIHHIHIHIHIIHIHIH IHRE 
REM : 
POKESS270 ‚8: IFPEEK (49152) <>16&9THENPRINT"ÜSREBPLEASE LOAD FART ONE FIRST"=END 
V33248: PRINTCHR#$ (142) 

POKEV+41 ‚71 POKEV+42 „Br POKEV+23 ,,01 POKEV+29 , 0: R=& 

FOKEV+21 ,O: POKES3S280 ,&ı POKES32B1 ,& 

PRINT"iIIM ### PLANET OF DEATH »##* 

PRINT"® {C) 19895 BY 

PRINT" ls] Mi HEINZ BUTSEHKO 








Compube mib nm 


programme 


PRINT“ KRISCHERSTR. ZIEIEEEBERERBERENHMOI1F MONHEIM 1 
3 
REM ### SPRITES #e#* 


H 
FORI=0T0853: READX ı POKEB3Z+IT „X: NEXT 
FORI=0T0&3ı READX : POKEBFEHT „X: NEXT 
FORI=OTD&3:3 READX ı POKEF&0+1, X: NEXT 
FORI=0T063: READX ı POKE1228B+1 ,Xı NEXT 
POKE2040, 13: POKE2041 „14: FOKE2042,, 15: POKE2043 , 192: GEDSUBI0000 
3 a 

REM ### LEVEL 1 ### 


| 
LE=f: Bs=" la ":B13=" EN SR " 
Bzs="5 cm KUN GEB KEME " 


155 TIg=e"000000" 


180. LE=115H=1001 8V=153: POKEV+3T, 1: POKEV SV: POKEV+1 „SH: POKESIFZBO,O 

153 PRINT"LIR" :GDSUB15000: POKEV+21, i 

155 PRINT'"'B- Bear en oem u ", 

166 FRINT"j RAUMSCHIFFE :"R" ns 

167° PRINT " mm ne ee an GER 

157 FOKEV+31,0 ; 

170 J=PEEK (55320) 
180 IF {JANDI) aOTHENSH=SH-4 220 IFSH<SSTHENSH=83 
190 IF tJAND2) =OTHENSH=SH+2 221 IFSV>Z255THENSV=255 
200 IF (JAND4} =OTHENBV=BV-4 222 IFSV<25THENSVe#25 
210 IFtJANDB) =SOTHENSV>SV+4 223 IFSH>ZOSTHENSH=20& 


224 SH=S5H+1: IFSH>205ANDSV>145ANDSV< 1L93THENGOSUBYSS: GOTO3SO 

225 P=INT {RND{1}#8) +12 1IFP=1THENSYS49152: FORI=1T015: NEXTI:SYSS52500 : 8Y552000 
229 IF(PEEK (V+31) ANDI) =1THENGOSUB17000:G0T0160 

230 POKEV, SV: FOKEV+4 „SH: IFTI$ ed "THENS0O00 

240 se 70 


350 
360 Rem “”* LEVEL 2 0 
370 3 
375 LE=2 ’ 
380 PRINT"L":SV=18:SH=53: G0SUB 16000: POKEV+2, SV: POKEV+Z,SH: POKEV+21, 2: POKEV+29,2 
381 POKE214,20: 898586401 PRINT" —— “; 
382 PRINT"! RAUMSCHIFFE ="R" n; 
383 PRINT" nn nenn min N 
385 FOREV+40 123 FOKE (V+31) ,0 425 IF (JANDEB) »OTHENSV=SV+4 
387 FOKES3280,0:POKES3291,0 426 IFSH<SSTHENSH=53 
390 J=PEEK (56320) = SH=5H-1 427 IFSH>ZOOTHENSH=200 
400 IF (JAND1)=OTHENSH=5H-4 428 IFSV< 17THENSV=17 
410 IF-{JANDZ)I =SOTHENSH=SH+4 429 IFSV>255THENSV=255 


420 IF (JAND4) =OTHENSV=5V-4 


435: IF {PEEK (V+31) AND2) =2THENBOSUB 17000: GDTD380 
436 IFSH>SOANDSH< 6OANDSV>LPLANDSV<200THENGOSUBFSS: GOTOS0O 

437 IFTIS>"000200"THENS0000 

440 POKEV+2,5V: POKEV+3 SH: BOTO390 

497 : 

A9B REM ### LEVEL 3 er 

499 ı Be 

500 LE=3:POKEV+21 ,0780SUB161001 SV=50 1 SH=105: POKEV+2,5VI POKEV+3,SH 5 
502 POKEV+40 , 14: PDKEV+23,0: POKEV+29 ‚0: POKEV+21 ,2:POKE214, 17: SY558640 








503 PRINT" . Sen, 
504 PRINT"| RAUMSCHIFFE z"R" ; 
505 PRINT" 


CSompute mib 2 


programme 


5097 
510 
=20 
530 
40 
s50 
350 
3590 
&00 
519 
6209 
830 
640 


840 
850 
860 
870 
872 
873 
875 
380 
870 
Foo 
510 
920 


930 IFTIS>"000200" THENSOOOO 

949 GOTOBSYO 

30 3 

953 REM #*# ZEIT EINBLENDEN ### 

56 ı 

957 FF$=TI8: PRINT"Ü"SPOKEV+21 ,0: POKE214,10:5Y358640 
957 FORYAOTOS 

9&0 FRINT"B"TAB(4) "WERBRAUCHTE ZEIT :"FF$" SEC." 
961 FORI=SÖOTDIOO:INEXTI a 

753 FPRINT"B"TAB(4) "SVERBRAUCHTE ZEIT 3"FF$" SEC." 
764 FORI=ÖTDLIOSINEXTISNEXTY - i 

255 FORI=OTO1500: NEXTı TIS=FF$ 

770 RETURN 

1000 ı 

1010 REM ##* KNALL {EXPLOSION ### 

1020 ı 


K=INT (RND{1) #6) +1 

IFk=1THENO=1 

IFK=2THENG=7 

IFK=3THENG=11 

IFK=4 THENDe17 

IFK=STHENG=2i 

IFK=&THENO=27 

KlL=KL+1: IFKL=2THENKL=0 3 B80TD410 
GOT0O&40 
POKE214,718Y558440: PRINTTAB (0) B$ 
8Y8525001 FORI=1T0201 NEXTI 
POKE214,7:5Y858640: PRINTTAB (OD) Bi$ 
J=PEEK (56320) 


PRINT"VERSUCHEN SIE DIE BOMBE SD SCHNELL WIE" 
PRINT"EMDEGLICH ZU ENTSCHAERFEN, INDEM SIE" 
PRINT"BDIE 2-STELLIGE ZAHLENKOMBIN 


PRINT"BGEBEN !ı am 
PRINT"IRIeklk FERTIG 777" 
BETAS: IFAS=""THENSTS 


TIs=F$ 
KO=INT{RND (1) #99) +1 
INPUT"ERZEREITE IHR TIP 7797": T$ 


IFVAL (T$) =KOTHENS1000 


IFVAL (TS) >KOTHENPRINT"S DIE ZAHL IST ZU GROSS" 
IFVAL(TEI<SKOTHENPRINT"& DIE ZAHL' IST ZU KLEIN" 


1030 SYSS2500 
1040 RETURN 


14995 » 


14795 
14997 
15000 
15010 
15020 
15030 
15031 
15032 
15033 
15034 
15036 
15040 
15050 
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REM *## BRAFIK FUER LEVEL 1 ##* 


FOKEZ14,15:5Y958430 
PRINT" un 

FRINT"Z 
FRINT"Z 
PRINT" 
FRINT"Z 
PRINT"S 
PRINT" 
PRINT" 
PRINT" 
FRINT" 2 


auuauu "in 


GSompure mi 


ATIDN EIN-" 


IFtJANDI) =OTHENSH=SH-3 

IFtJANDZ) =SOTHENSH=SH+3 

IF (JAND4) =OTHENSV=SV-3 

IF (JANDE) =ZOTHENSV=SV+F 

SVaSV+1 3 IFSV>243THENBOSUB9SS : BOTDBOO 
IFPEEK (V+31) =2THENGOSUB1 7000: B0T0500 
IFTI#>"000200" THENS0000 
POKEV+2 ,8V: POKEV+3,5H 


GOTO3509 

| 

REM #*# LEVEL &3 #%%# 
| 

F3=TI$ 
FOKEV+21 „OÖ: PRINT" LJ3" 


Ein Standardwerk 
für den C-64 
C64/5X64 - 
Gomputer-Handbuch 
einen 


‚0 paben 
Se Nonecom ner? 















; Dann brauchen Sie auch 






2 
a = m"; dieses Buch! Es ist die 
Ft) w"; | gründlichste Analyse des C- 
Bi m“; 64/5X-64. Denn es ersetzt 
is a, eine ganze Generation un- 
= a j vollständiger Werke über 
Pr un: diesen weitverbreiteten 
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15060 
15070 
15080 


15090 


15100 
15990 
15995 
15998 
16000 
16001 
16002 
16003 
16005 
16006 
16007 
15008 
16009 
15010 
16011 
16012 
16013 
16014 
16015 
16016 
16017 
16018 
16019 
16020 
16100 
16110 


16120. 


18130 
16140 
16150 
161&0 
14170 
16175 
16182 
15183 
16184 
15185 
151865 
16187 
15190 
17000 
17010 
17020 
17025 
170397 
17040 
1704i 
17042 
17045 
17046 
17047 
17048 
17049 
17050 
17050 
17070 
18000 
12010 
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PRINT" 
PRINT" 
PRINT" 
PRINT” 
RETURN 


REM #*= BRAFIK FUER LEVEL 2 


2m in 
wu | “u 
En ET Een El 


; 
PRINT"@- 
PRINT"- - - 
PRINT"- 
PRINT" - - 
PRINT"- 
PRINT"- - 
PRINT"- 
PRINT"- 
PRINT"- - 
PRINT"= 
PRINT"- 
PRINT"----—- 
PRINT"- 
PRINT"- - - - 
PRINT"- - 
PRINT"- - - 
PRINT"- 
PRINT"- - - - 


A m a en a u 


Lo — Los Los 


RETURN 


a 

REM *#* BRAFIK FUER LEVEL 3 #*# 

Li 

PRINT"LE" : POKESZ2B0 ,0: POKES32B1,0 
FORI=1T05: FORY=1T049: PRINT" "5: NEXTY=NEXTI 
FORI=1TDA4: PRINT Er WW ";:NEXTI 
PRINT=:PRINT:PRINT £ 

FORI=1TD4: PRINT" we ip a "S:NEXTI 
FORI=1T05: FORY=1TO40: PRINT" "53NEXTY:NEXTI 
POKE214 ,61 9Y558640: PRINT" ENBRANGEERLA 
POKEZ14,718Y858540: PRINTTAB (30) "3 e 
POKE214,8:5Y558654041 PRINTTAB{30) "4 ® 
POKE214 , 9: 5Y858630: PRINTTAB (30) "ig >» 2 
POKE214,10: 8YS586403 PRINTTAB{F0) "2 zu 
POKE214, 6: FOKEZ11,38: 5Y558640: PRINTB2$ 
RETURN 


REM *#%# RAUMSCHIFF ZERSTDERT ### 


s 
POKEV+23,0: IFLE< >3THENPOKEV+29,2 


m"; 


programme 


"3 | Computer und behandelt auch 
gu, | Seltene und schwierige Anwen- 
t dungssituationen. 


Raeto West - Der Name des Autors 
| bürgt für diese erste seriöse G-64-/5X- 
1 64-Referenz. Er beantwortet komplexe 
| Programmier-- und Systemfragen 

grundsätzlich sowchl mit detaillierten, 

vollständigen und sorgfältig erarbeite- 
ten Fakten als auch generell mit gülti- 

I gen Aussagen für vertiefendes Compu- 
ter-Verständnis. Mehr als dreihundert 
kurze Programmbeispiele zeigen vor- 
bildliche Lösungstechniken und vermit- 
teln den Erfahrungsschatz eines Profis - 
denn Raeto West ist Programmierer und 
Systemanalytiker, dieses Buch ist seine 

i Arbeitsgrundlage. 

Natürlich ist neben der Beschreibung 
| des Systerns und der Programmierung 

auch die Peripherie nicht zu kurz ge- 

kommen. 

1 Das C-64-/5%-64-COMPUTER-HAND- 
BUCH ist die einzige ENZYKLOPÄDIE der 
64-er Computer im deutschen Sprach- 
raum! 


4 te-wi Verlag GmbH, 8600 München 48, 
683 Seiten, Softeover, DM 66,- 
1 ISBN 3-921803-24-1 


FORI=4T0O8STEP2: POKEV+L „SV POKEV+I+1 „SH: NEXTI: POKEV+21,4 
FORI=1T0150:NEXTI: FDKEV+21 ,B: FORI=1T03: BDSUB1 000: NEXTI: POKEV+4 ,8V-10 
PÜKEV+21 „44 POKEV+Z9 ,Aı POKEV+23 ,4: FÜR I=1 7021 GOBSUBLO001 NEXT FORI=ÖTOSO0: NEXT 


POKEV+21,0: FORI=1TD2000: NEXT 


FOKES3281 „0: POKES3280 „0: PRINT"ER. DAS WAR ABER SCHWACH." 


PRINT" SCHON NACH "TI%" 
FRINT"” IHRER RAUMSCHIFF ZERSTGERT. 
POKEV+21 ,O: POKES3270,B . 

FF$=T1I$: FOR1=1T02000: NEXT: TIS=FF$ 
R=R-1: IFR=0THEN18000 

FF=PEEK (V+351) 


REM ##*# GAME UÜVER + 


Gomputo mit 


SEKUNDEN IST EINES" 


POKES3281 ‚O0: POKES32B1 „O0: POKEV+39 ,1: POKEV+40, 12: RETURN 
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programme _ 


18014 
18015 
18020 
18030 
18035 
18040 
18050 
198055 
18060 
18070 
12080 
18070 
197000 
19010 
2000 
20010 
20020 
20030 
20040 
20050 
ZO0L0 
20070 
20080 
20090 
20100 
20110 
30000 
30010 
Z0070 
30030 
z0040 
30050 
30040 
20070 
30980 
30070 
30095 
20100 
30105 
30110 
30115 
30120 
30121 
30172 
30123 
301274 
30125 
3017& 
30129 
30130 


4977 2 


499598 


PRINT": POKEU+21 „0 
FÜKESS280 „0: POKES32B1 ,‚O: POKE214, 10: 8Y558640 1 PRINTTAB (14) "BERASPIIE EOWEERR 
PRINT'EEIEBRRBINELUES SPIEL 777 CI/ND) " 

POKEV+39 , 1: POKEV+21 , 1: FA=1 

BETA$: IFA$=" N" THENEND 

IFAS="]" THENRUN 

POKEV+39 ‚FA: POKEV 22: POKEV+1 ,50 

FORI=50T0225: POKEV+1 , I:NEXT 

FORI=22T0255: POKEV,I: NEXT 

FORI=25ST022STEP-1: POKEV, I: NEXT 

FORI=225TDS0STEP-1: POKEV+1 „Ir NEXT 

FA=FA+1: IFFA=1STHENFA=1 

BOTO18040 
DATAO,224,0,1,16,0,1,1&,0,0,160,0,0,72,128,0,71,0,0,65,0,1,255,128,3,255 
DATA192,7,255,224,7,195,224,7,219,224,3,219,192,1,219,128,0,255,0,0,12#,0 
DATA1,129,128,2,66,64,4,60,32,8,102,16,63,129, 252,62 
DATAO,0,0,0,0,0,0,0,0,0,64,040,63,0,0,72,0,0,4,0,0,2,0,0,15,192,0,31,228 
DATAO, 191, a8, 6, 255, &0, 0,191,48,0, 31,224,0,15,192,0,2,0,0,4,0,0, 72, o, ö, 63 
DATAG,0,64,0,0,0,0,0 
DATAO,187,0,1,123,128,10,155,176,39,110,108,123,235,212,187,185,175,94 ,249 
DATA1L00,27,12%,188,7,237,80,0,47,0,0,54,0,0,30,0,0,121,128,14230,144,0,0,0 
DATARO,0,0,0,0,0,0,0,0,0,0,0,0,0,040,0,0,0 
DATAO,0,0,.12,0,48,34,4,60,19,42,211.4,174,96&,1,123,96, 11,183, 156, 29 
DATA187,85,11,185,149,10,110,228,20,251,96,4,48,0,0,194,0,2,32,64,11,76,32 
DATAO,0,228,0,0,0,0,0,90,0,0,0,0,0,0.0,0.0,0 


| £ 
REM #3## SPIELANLEITUNG ### 
PRINT"ER, *#* PLANET OF DEATH ### ie 

PRINT"ER EIN KAHNSINNIGBER VERBRECHER HAT AUF "5 

PRINT"® EINEM PLANETEN EINE ATOMBOMBE BELEST, 

PRINT"E DIE IN GENAU ZWEI MINUTEN EXPLODIERT. 

PRINT" IHRE AUFSABE IST ES NUN, DIESE ATOM- 

PRINT" BOMBE IN DIESEM ZEITRAUM ZU FIN- 

PRINT" DEN UND ZU ENTSCHAERFEN 

PRINT’S WENN IHNEN DAS NICHT GELINGT, 

PRINT"® EXPLODIERT DIE BOMBE UND 

PRINT"E #.5 MIO. MENSCHEN VERLIEREN IHR 

PRINT"® LEBEN. EbisE)>> TASTE << 
POKE198,0: POKES32B1 „Or POKESS280,0 

BETASE IFAS< >" "THENSG130 

POKEV+39, 1: POKEV+1 ‚2083 POKEV+21 „1 

FORI=10510255: POKEV, I:NEXT 

FÜRI=20870225: FOKEV+1 , I: NEXT 

FORI=225T0203STEP-1:POKEV+1 ‚I: NEXT: FORI=2SSTO10SSTEP-L: POKEV,IsNEKXT 
FOR1=20870225: POKEV+1 , Is NEXT 

FORI=225T0208STEP-1: PÜKEV+1,I:NEXT 

ECTU30120 

FOKES3281 ‚0: POKES3280 , 0: RETURN 


REM ##% BOMBE EXPLODIERT #*#* 


49999 ; 


50000 
50010 
50020 
| 50030 
50040 
50050 
50080 
SMTO 
50080 
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PRINT"=": POKEV+21,0 

FORI=0T030: POKESS3290 , 2: POKES32R1 „7: FORT=1TO30: NEXTT: POKES3280,7 

POKESI2BI , 2: FORY=SOTOJFO: NEXTY:NEXTI ‚ 
POKES3ZBO ,0: FOKESSZB1 ,O: FRINT"aSIE WAREN NICHT FAEHIG, DIE BOMBE RECHT-"3 
PRINT"ZEITIS ZU ENTSCHAERFEN I! 

FRINT"IHR VERSAGBEN KOSTETE 9.5 MIO. MENSCHEN" 5 

PRINT"DAS LEBEN. = 

FRINT"S BITTE SPACE DRUECKEN tt" 

BGETA$: IFASS>" "THENSO099 


Sompute mi ne 


GEDTO1B090 
PRINTTLHERZLICHEN 
FRINT'"NS BBELDECKWUNSE #" 

PRINT '"'EREEIHSIE HABEN ES BESCHAFFT,DIE BOMBE ZU 
FRINT"RFINDEN UND SIE ZU ENTSCHAERFEN 11" | 
FRINT"RBIHRE ZEIT :"TI$ Ze) 
FORI=1T01500: NEXT ı GOTO30070 
SAVE"@:PLÄANET OF DEATN",8B 


50090 
s1000 
532000 
szC10 
22020 
32021 
Sr05o 
63000 


werkstatt. 


Ih 
k 


535700 





PRINT"EREIRUNIGAELTDI" 


Werkstatt: 
Funktions-Tasten-Programmierung 
für dem Commodore 64 


Sicherlich haben visie G-64-Besitzer sich 
schon mal gefragt, wie jene vier Tasten auf 
der rechten Tastaturseite zu benutzen 
sind. Die meisten Spiele sowie einige Ltili- 
ty-Programme verwenden sie, um be- 
stimmte Funktionen zu wählen. 

Die FN-Tasten, von fi bis f6 numerierf, 
sind in Basic durch den GET-Befehl an- 
sprechbar. Je nachdem, ob und welche 
Taste gedrückt ist, wird dieentsprechende 
Subroutine angesprungen. Durch vier 
Einstellungen sind insgesamt 16 FN-Ta- 
sten belegbar: 


3) ohne Shift (irekt) ft, 1,15, 7 
2) mit ShiiTaste 1214,10, 
3) mit Domm.Taste II, 13, 15, 17 
3) mit ETRITaste 1, 13, 16, 7 


Man kann z. B. jede einzelne FN-Taste mit 
einem Basic-Tokens belegen, um ein Pro- 
gramm leichter einzugeben. Wir müssen 
aber diese Routine in Maschinensprache 


Hat man: diese Zeilen eingegeben und ge- 
startet, wird beim Drücken der Taste f 
das erste, auf Kassette gefundene Pro- 
gramm in den Speicher geladen. Oder mit 
f3 wird die Bildschirmfarbe auf Gelb um- 
geschaltet. 


Laden wir aber nun in Programm in den 
Speicher, würde unser ersies geladenes 
Programm überschrieben. 


Das Betriebssystem sorgt immer dafür, 
daß der Zeiger - Basic Anfang und Ende - 
immer die aktuellen Werte enthält. 


| Das vorgestellte Demo-Programm „EN- 
Tasten“ besteht aus zwei Teilen. Der erste 
: Teil enthält zwei Maschinenroutinen: 


Biock 1 


Dieser ermöglicht, daß der Anweisungs- 
text - wie die einzelnen FN-Taster belegt 
sind — nicht mitgescrolit wird. 


schreiben, damit die Probleme, die ein Ba- | 


sic-Programm mit sich bringt, aus dem 


Weg geschaffen werden. Um das klar zu | 


machen, nehmen wir folgendes Beispiel: 
10 GET A$: IF.A$ ”” THEN 10 
20 IF A$=CHR$ (133) THEN LOAD 


30 IF Aß=CHR$ (134) THEN 
POKE 53280,7 
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Bisck 2 


Dieser benutzt die Interrupt-Roufine des 
Betriebssystems. D. h., jede "/so Sekunde 
unterbricht der Prozessor das Programm, 
welches er gerade bearbeitet und springt 
die Adresse an, die in den Speichersteilen 
$0314-$0315 steht. Der normale Inhalt 
$EAS31 ist die Anfangsadresse dieser Kon- 


Sompube mil 


trol!-Routine. Ändern wir jetzt $EA31 in 1 
die Anfangsadresse unserer Routine, wird | 
der Prozessor vor seinem Rundgang | 
zuerst diese anspringen. 


Beschreibung 
Assembler-Listing 
Block 2 


Zuerst wird die Anfangsadresse unserer | 
Routine ($CF9C} in die Speicherstellen | 
$0314-$0315 geschrieben. Ab hier wer- | 
den die Register-Inhalte auf den Stack ge- 

reitet. Von der Routine ab $CFEO wird der | 
entsprechende String gelesen und in die 

Tastaturpuffer Kopiert. Dann werden die i 
Original-Inkalte in die Register zurückge- | 
schrieben und anschließend die Interrupt- | 
Routine angesprungen, die, wie schon er- f 
wähnt, ab Adresse $EA31 anfängt. Hier | 
haben Sie ein gutes Beispiel für die Benut- | 
zung des Interrupt bei dem 6510-Prozes- | 
sor. 





Der zweite Teil schreibt den Anweisungs- | 
Text mit der aktuellen FN-Tastenbeiegung | 
auf den Bildschirm. Dann die Routine für | 
das Lesen von Sirings, die sich in den Da- I 


{as befinden und ab Adresse $CFO0 hin- | 


eingepoket werden. Ein String darf höch- 1 
stens acht Zeichen enthalten. Änschlie- 
Bend wird der erste Teil mit SYS 52904 
gestartet. Durch Anderung der Datas kön- 
nen eigene Befehle definiert werden. Man 
sollte nur darauf achten, daß die erste Da- 
ta zu der letzten FN-Taste gehört. 
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30 


145 FORI=1T037: :PRINT"*"; : BOSUB 





ne REM FERSarsHeeegester Maschinensprache-Ra 


ullnen 
z=2 REH ###8 FU — TASTEN s.*r , E R 
34 REM SSäSSHHuSsKerEEenEE mi Teil 1 und Teil 3 
36 REM 8#r Er *&# 
38 REM se 5 VALENTINDG s++ 
40 REM sc 
&5 RIoH 
3 REM #88 1-TE TEIL #5# 
70 RE 
753 FRINT’WZ"TIFORT=S1TO11: PRINT: NEXTSFRINTTARE 
go; FORE=SZTO4TOS2787: READA:S=S+A: FOKEE „AsNE! 
70 IFSZL>10&B1THENFRINT"FEHLER I BLOCH 1"sEN 
539 REM ##* ELOOK i + i i 
106 DATA189,160,132,037,133,041,167,000,133,038,127,040,189,192,132,254 
7 


_ En > mr F eu rat, mr were Dee Fe ku 
101 DATAO32,225,206,169,224,172,079,172,041,169,000,173,038,1772,040,167 
102 DATA=233,123,254,032,225,208,180,000,177,038,145,049,200,205,249, 157 


103 DATA0C07,141,247,232,187,0532,078,151,707,1&0,000,177,058, 149,040, 200 

104 DATA20S,249,208,006,770,027,230,041,165,041,197,254,144,237 ‚076,009 
I 7 F 7 5 3 7 y F 7 7 

110 REM ### BLOCK 2 #%#* 

111 S=-ls FÜRK=-STIEITOSZ245: READA:SSBHA: POKEK „Ar NEXT 

112 IFS<H17823THENPRINT"FEHLER IN BLOCK 2":ENG 

113 DATA132,001,234,254,170,169,156,141,0720,0072,169,207,141,021,007,038 

114 DATA1L3T,056,149,000,127,053,076,734,224,072,138,072,1537,0972, 165,197 
# ’ 5 hi; 7 $ 5 2 ’ Be = Pr Ei 

115 DATA177,251,240,078,132,251,234,162,009,172,141,002,168,197, 000,230 

115 DATAO009,139,024,105,032,170,136,024,144,247,2724,096,048,0072,162,095 

117 DATAZ34,274,165,197,160,002,132,253,197 ,253,240,017, 200,222, 232,232 

’ b; L) ’ 5 3 3 E) 3 2 E) 

119 DATA232,272,232,272,232,192,007,208,237,076,7459,707,734,138,133,232 

117 DATA159,207,133,253,160,000,177,252,152,119,002,200,1972,008, 203,246 
Y ’ F 7 } 7 E + 5 7 7 7 3 + 

120 DATA122,199,104,169,104,170,104,076,06439 , 254,000 
7 y > 7 7 L; $ ; + rn} 

125 REM 

130 REM ###* 2-TE TEIL ##+ 


1409 V=54272:POKESS2BO, 6: FOKESSIE 
2 





1,0: PFRINT"L " 
SG: NEXT 
150 FORI=1TO9: FRINTRER "4: SOSUESOO: NEXT 

155 FORI=S1TOS7CFRINT RER": SOSUBSOS: NEXT 

1&0 FORI=S1TOS:FRINT"IRRR": : BOSUBSOQ: NEXT 

175 FRINT:FRINTTAB (8) "FUNKTIONSTASTEN-BELEGUNG" SFC (10) 5 

177 FORI=1TG34: : FRINT "=": GDSURS00: NEXT 

120 FRINTTERBEN.SHIFT M.SHIFT Mm. Donm. M.DTRL.8" 

175G FRINT"BERFI=SLOAD Fz=FoR Fi=OFEN Fi=FEEH" 
195 FRINT"BEBFT=5AVE FI=NEXT F3=FRINTH FI=READ" | 
196 FRINT'EBRS=SLIST Fö=505US  FS=INPUT# FI=TREN" 
177 FRINT"ERF7=RUN  FE=SRETURN F7=OLOSE F7=erRükeE® 
200 FRINT:FRINT 

250 FORB=0TDIS:READBE 

255 L=LEN BE}: IFL>ETHENFRINT"MAK. 3 ZEICHEN! "END 

50 FORI=1T08 

2049 IFIFLTHENV=0:6G070775 

270 V=ASCIMIDFIBF,I,1)): IFVS9STHENU=S17 

273 FOKESZFFIHIHBRB VINEXTI,B 

z20 CLR:SYSS7704 

z90 EMD 

3709 REM ###** FUNKTIONSTASTEN-BELEGUNS ##H%% 

400 REM emtmtermtmiggetckogecmie ggg ing 

403 REM F7 Fl * Fi * 75 8» D.ESHIFT 


GCompute mik | nr 


;EF7 
‚CFaa 
‚LFEA 
FED 
‚EFEF 
EFYEZ 
EFFE 
‚EFFS 
‚CFY7 
LF77 


LE 


SL En Arc hi 


werkstatt 


rm Amine on man oanı ’ Es Fa Ä 
DATA"RUN"  "LOAB" "SAVE" "LIST" 
zo 


EM zegetceizciche.- 


REM x FB 


Ze mo BAa e FE M.SmI 


Fer 


Datn RETURN” "TOR" "NEXT" "BOSUE” 

REM Km 
Bene, BE @ Bl. ® RS = F5 ==. CDOMM, 
BATAPTZLGSE" "OFEN", ’PRINT#" "INPFUT#" 

REH Ferm ms imago 
REM ® F7 OR * Fi» FI + M.LiRL. 
DATR"FOEE" "FEER" "READ",FTHER 

REM Bere in ae 


FOREV+24,15: FOKEV+S OS: FOKEV+S ,247 
FOREV+4 SZ: POEEV+1, 40: FOEEV CO: FORT=S1 TOSG: NEXT 
FOHEW,) OH: FOREV+1  „OI RETURN 


MI: 


mil zı List Im 
Hi — TASTER“ 


FR: 


Neue Zeiger setzen Inorm.Inhalt $ERS1) 


sZeiger auf Basic-RäM-ende 


renen neara rem erobern Bd ME Fr ADAM AH MH A a Mr Hamas ad K Fra wa he a Fr TH HP 


[26] 


FB 


FB 


O0 
zL 


20 
07 


4 
r 
3 
B> 
De) 


Bol ECFBO 
LFX #0 
EMI CFGE 


;Rettet Registerinhalt auf den Stack 


sLeizte gedrueckte Taste 


sFlag fuer SHIFT/ETRL 


sFruefung ob SHIFT»COMM.oder ETRL gedrueckt 


suuerde und wern jeardantı welche FN-Taste war 


a. —— Sees: 


werkstatt 


:EFIL AZ u EX #40 

:ECFÜ2 EA NOIR 

EFOCA OO EA NOP 

;LFLS 095 05 if ES 

LFI?’ 0 AO 032 LEY 303 

‚FE? 54 FE ETT FE 

»CFEB O CS FE CMF FE 

:ECFCD FO il EBEN CFEO 

‚EFCF Oo 68 INY 

‚ECFOIdO £9 INX 

‚urdi = INXk 

»:EFDE Oo ES INX 

[FILZ ES INX :Inkrementiert Wort 
‚EFIG E23 INX 

:EFOES ES INX 

‚[FD& E& INX 

‚EFD7 ES INX 

‚ECFDE O0 20.07 LFYV #07 

‚CFoA Do ED ENE CFÜOY 

‚EFDOR 40 F5 CF JMe ces 

;CFOF EA Te] 2 

»:CFEO 2A Tıa 

:LCFEI 25 FÜ STA FÜ 

‚CFEZ A? CF LDA #CF 

‚CFES O S5 FÜ &TA FD :Tokens holen ab adr .SCFOO und in die 
‚EFE7O39AO 00 LOY #00 Tastaturpuffer kopieren 
:sLFE? Bl FÜ LEA {FO).Y 

‚L[FEB 93 77 02 5371A 02775Y 

sCPEE 63 INY 

‚ECFEF 20 08 LPY #05 

:[FF1l DO Fä ENE CFE7 

:[FF3 2 54 CA STY Is seänzahl der Zeichen fuer die Tastaturpuffer 
‚UFFSOoO 65 FLA 

Ir as x ar AN. Stack und schreibt in die 
‚CEFE DA TAX sKkegister zurueck 
„EFFFOGS FLA 

:EFFA ACC 31 ER JMF EA 

Are mW nee nTerpügt, Routine 

:EFFOD O3 00 ERK 3 
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INFOSYS 64 


Das neue Mailboxprogramm für den Commodore 64 


- Wohl jeder Modembesitzer hat schon ein- | eigene Mailbox kann für Computerclubs, | Nachdem ElectronicUniverse mit seinem 
mal mit dem Gedanken gespielt, eine ei- | Händler oder Privatleute als ein rund um | TERMINAL 64 Maßstäbe für Terminalsoft- 
gene Mailbox zu betreiben. Kein Wunder, | die Uhr verfügbares, leistungsstarkes | ware auf dem Gommodore 64 gesetzt hat, 
denn die Vorteile liegen auf der Hand. Eine | Kommunikationssystem genutzt werden. I ist der Firma jetzt mit INFOSYS 64 glei- 





2 — Gompute mit E u 


ches für den Betrieb einer Mailbox auf 
dem C-64 gelungen. 

INFOSYS 64 zeichnet sich durch einfache 
Handhabung, durch konsequente Menue- 
steuerung auf Benutzer- und Betreibersei- 
te aus. Je nach Kenntnisstand kann der 
Benutzer die Menuetexte an- und aus- 
blenden. 

INFOSYS 64 läßt sich auf einfache Weise 
schnell an Bedürfnisse des Betreibers an- 
passen. Buchstäblich in Sekundenschnel- 
le können neue Rubriken und Filedirecto- 
ries angelegt und/oder gelöscht werden. 
Auf diese Weise kann der Betreiber ohne 
lästige Programmänderung flexibel auf 







Als besonderes Bonbon wird nach der 
Mailbox-Installation ein DFU-Herbstfe- 
rien-Spezialkurs angeboten. Ziel dieses 
Kurses ist es, den Teilnehmern - ob „Ein- 
steiger“ oder „Crack“ - alles Wissens- 
werte über das neue Trend-Thema Daten- 
fernübertragung zu vermitteln. Dabei wer- 
den spielerisch praxisnahe Unterrichts- 
methoden angewandt. 

























































Besonders interessant dürfte dabei sein, 
daß durch anschaulichen Individualunter- 
richt und praktische DFU-Demonstratio- 
nen selbst Neulinge leicht den Einstieg in 
die faszinierende Welt der Mailboxen und 
Modems finden sollen, und in speziellen 
Hardware-Bastelstunden der kostengün- 
stige Selbstbau eines Akkustikkopplers 










Benutzerwünsche reagieren. 

Der Betreiber verfügt über eine Vielzahl 
von zusätzlichen Wartungsfunktionen, die 
ausschließlich ihm zur Verfügung stehen. 
Diese Funktionen kann der Operator alle- 
samt auch per DFÜ verwenden, also ohne 
daß er sich am Standort seiner Mailbox 
aufhält. 

INFOSYS 64 unterscheidet sich von ande- 
ren Maiiboxprogrammen dadurch, daß es 
die Möglichkeit bietet, bestimmten Benuf- 
zergruppen eigene Bereiche zuzuordnen. 
Die Entscheidung hierüber liegt aus- 
schließlich beim Betreiber, der jederzeit 


den Au a eines Benuizers 


Ferienzeit ist Computerzeit 


Sollten Sie während der Herbstferien noch nichts vorhaben, bietet Ihnen die CompuCamp GmbH wieder 
Computerkurse für verschiedene Computersysteme mit verschiedenen Aufgabenschwerpunkten an. 


bis hin zum komplett fertigen Gerät nicht 
nur demonstriert, sondern unter fachge- 
rechter Anleitung von jedem Teilnehmer 
selbst durchgeführt werden kann. 
Darüberhinaus bieten die GompuGamp- 
Computercamps natürlich auch andere 
Fachkurse und interessante Aufbaukurse 
für jeden Computerbesitzer oder Interes- 
sierten an. 


Die Kurse im Einzelnen: 

LOGO (für die jüngeren Einsteiger) 

In diesem Kurs lernen die jüngeren Teilnehmer auf 
spielerische Art die ersten Grundbegriffe des Pro- 
grammierens. 

BASIC 1 (für Einsteiger} 

Der praxisorientierte Kurs BASIG 1 führt auch ohne 
Vorkenntnisse den Einsteiger in die Welt des Gom- 
puters ein und vermittelt ein Grundwissen. 

BASIE 2 {für Forigeschrittene) 

Dieser Kurs setzi bereits Grundkenntnisse voraus 
und schafft die Möglichkeit den Homecomputer 
optimal zu nutzen. 

Spiele programmieren 

Hier wurde durch gezielten Individualurterricht die 
Wissensgrundlage zum Programmieren von Ad- 
verrtures und Action Games geschaffen. 
Maschinensprache 

Vermittlung von Wissensgrundfagen mit dem Um- 
gang des 6502/6510-Prozessors. 


Neben dem „Unterricht“ ist natürlich auch 
an die Freizeit gedacht werden. So werden 


Compute mit 


report 


INFOSYS 64 in Aktion zu sehen ist jeder- 
zeit möglich: unter 04131-346756 ist die 
Mailbox von ElectronicUniverse rund um 
die Uhr erreichbar. 

INFOSYS 64 kostet komplett mit Auto- 
modemvorsatz zum Anschluß an jeden 
Akkustikkopler oder Modem nur 249,-- 
DM, (ohne Vorsatz 149,-- DM) 

Anfragen oder Bestellungen unter: 


EieclronicUniverse 
Hindenburgstr. 98 
2120 Lüneburg 

oder Mailbox unter ELU. 














Neben den Unterrichtskursen bleibt immer noch 
genügend Freizeit, so daß jeder Teilnehmer erleb- 
hisreiche Ferientage verleben kann. 


viele Möglichkeiten eines abwechslungs- 
reichen und spannenden Freizeitvergnü- 
gens angeboten. Auch die Standorte der 
einzelnen Camps lassen schon aufeintol- 
les Freizeitangebot schließen. 


Nähere Informationen über die DFÜ- 
Herbstferien-Spezialkurse und die weite- 
ren Kurse in BASIC, LOGO, PASCAL und 
MASCHINENSPRACHE erhält man bei: 


Compubamp Geselischaft für Computer- 
ferien und EDV-Ausbildung mbH, Goßierstr. 
21, 2000 Hamburg 55, Tel.: 040/86 23 44 





_Programme 
CAR R CE Commodore C 16 


CAR RAGE - ein Autorennen, spannend wie gefährlich! 


Wer würde nicht schon gern einmal den 
feuerfesten Overali eines Nikki Lauda oder 
Keke Rosberg überstreifen, um sich in's 
Motodrom eines spannenden Formei 1- 
Rennens zu wagen und seine: Lorbeeren 
zu verdieren? Nun, bei GAR RACE haben 
Sie die Möglichkeit hierzu! 

Ihr Formel 1-Fahrzeug - durch einen Pfeil 
dargestelit -— wird per Tastatur über die 
Rennstrecke gejagt {mit KOMMA nach 
links; und PUNKT nach rechts). Beim 
Überfahren des in der Mitte der Straße be- 
findlichen reversen Kreises werden bei je- 
dem Scrolling zwei Punkte addiert, an- 
dernfalls nur einer. _ 

Beim Zerschellen an der Fahrbahnbe- 
grenzung wird ein Wagen „abgezogen“; 
das Programm schaltet zurück zum Start- 
bild. 

Sobald das letzte Auto zerschelft ist, 
springt das Programm zur High-Score-Li- 
ste, wo sich die fünf besten Spieler, bzw. 
Fahrer, eintragen dürfen. 

Nach dem Eingeben des Programmes 
wird mit RUN gestartet. Es erfolgt der Bild- 
schirmaufbau und die Spielanleitung. Bei 
| CAR RAGE können Sie zwischen 21(1) 
Schwierigkeits-Stufen wählen (O=leicht; 
20=am schwersten). Nach entsprechen- 
der Wahl erklingt eine Melodie, und im 
1 Anschluß daran erscheint das Startbild 
mit dem Countdown. Dann heißt es: 


















REM BER RHBHRRRHRHHIHIHIHIHIIHHHI 
20 REM * ECAR-RACE 

30 REM # 

40 REF * COPYRIGHT i984 BY 

50 REM # FRANK VUELLERS 

&06 REM * FÜUER DEN COMMODORE 15 
70 REM * 

E0 REM BURENNUCERSERNENNEÄSEREENTERER ER 

70 GOSUES20 

100 REM —————m—muumnn nun 

i10 REM - RENNBAHN - 

120 REM mm nn 

130 FRINTCHR#& (142): FORI=OTD10:BGETASIı NEX 

1409 PRINT"W"+CHRE (27) "N" SE PRINTLASCHRE 127) "T" 
156 SPa13:Ca19 

160 COLORO,8,7:COLOR1,11,4 h 

170 FORI=OTOHH: PRINTTABR (SPY Ri] oe BEE" ENEXTıA=0: 5070190 
180 A=INT{RND{LI#&I .. 

176 IFA=OTHEN22O 

200 IFA=1ANDSP<2STHENSP=SP+1 










E ze Zu ze Zu ze 






| Rein in das Geschoß! 
I Kommen Sie sicher ans Ziel! 

















u | .. Gompube mib- ms 


430 
450 
460 
470 
480 
490 
s00 
510 
520 
530 
a0 
u0 
S60 
570 
80 
590 
600 
610 
620 
630 
640 
650 
&60 
670 
630 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 


10/85 


; SUTOIBO 


programme_ 


IFA=ZANDSP>ITHENSPF=SP-1 
FRINT'ESPCISF’e Ed 5 BR 
PRINTTEILBSSTAB (Oi 


ECHRBEIZFIUH" 





PRINT"EBBPUNKTE "U" AUTOS "All: PRINT "EIRLASCHRSCZII"T" | 
SOUNDS, 118,3: lelj*i1 
BETAF:E IFASs="  "ANDESOTHENE=C- 1: ELSE: [FAf=" . "ANDC<SFTHENC=C+ | 


IFPEEK (3952+40+0) =1 02THENSOO 
IFPEEK (3952+40+0) =B1 +1 2BTHENU=UHr1 | 


IFAU>1 THENAU=AU-1: PRINT'"BEL":CHAR1,15,11,"PECH BEHABT "2 BUSLIBBSOFEDTNZSN 
IFAU=1 THENPFRINT"’EER." : CHARI1,15, 11,"SAME DVER" : BOSUBF10: BOTGI040 

REM —-- mm nn nenn 

REM - BILBSCHIRMAUFBAU - 


PRINTCHRS (27) "N"+CHR& (147): PRINTEHRS$ (14) 

LAg="t | Sm Alles We: DeIı E=O 
COLORO,1:COLOR4,3,4 

Haft HH=0: E=d: VOLS: DO 

GETAS: IFAF=" "THENE=-I1 

IFAS="H"THENE=ZIEXIT 

IFAS="E"TTHENE=SIEXIT 

IFW=1&THENW=2 . 

IF3=7THENG=S: W=ehW+1 

Q=0l+13 COLDRI „W,U: PRINT "EEBRERERRFRARREPIT AR _ACE" 
PRINT"ERBEIH-OPYRIGHT BY —RANK »UELLERS 198a8" 
PRINT "EREE |IERBEI MUESSEN SIE VERSUCHEN ,„SD" 
PRINT"WEIT WIE MOEBLICH DURCH DIE YTRASSE ZU" 
PRINT"FAHREN,DIE SICH NACH UNTEN BEWEBT.-JER" 
PRINT"JEDES “CROLLING GIBT ES EINEN "TUNKT." 
PRINT"-ALLS SIE UEBER DEN _EV. -REIS FAHREN 
PRINT"BEKOMHEN SIE ZWEI UNKTE. WBALD SIE AN 
PRINT"DEN _AND STOSSEN,WIRD IHNEN EIN #UITO AB-"j 


FRINT"GEZOGEN,SOFERN SIE NOCH EINB HABEN. ACH" 


FRINT"DEM LETZTEM 4UTD KOENNEN SIE SICH EIN-" 

PRINT"TRABEN. #IE KOENNEN AUCH WCHWIERIEBKEITS-STUFEN WAEHLEN UND .ry FUER"; 
PRINT" IIGEHSCORE '’S, WPACE FUER WEITER UND °—-" FUER "NDE - DRUECKEN." 
LOOP WHILE E<>1 

IFE=?THENBOSUB1040:1 BOTD320 

IFE=3THENVOLO: FRINT"W"rEND 

INPUT"BIA4CHWIERIBKEITSSTUFE (0-20) *"3BHı IFEH<ODREH>ZOTHENIZ2O 
FORI=1T0O8R: LAF=L AH" a HeH+1 NEXT = HN=25-H 

IFOH=GTHENHH=24 

FDRI=4TDHF: LEI=L 85H" WM" NEXT. 

BOSUBF19: BOSUB& SO: BOSUB10O0 


REM mn 
REM - START - 
REM un 
PRINTCHR$ (142) 1 COLORO, 6,5: COLOR „8,43 FORI=0T010001 NEXT 


PRINTCHR$ (27) "NLKERIEEEEE BD 3 MD 3A AD BD3 A © 


FRINT"ISRRRPRBIE bi; bERBI kb hi Bi Bi hi BRIR " 

PRINT'ISEEEPEu IE LEI Ei Mi MM Me " 

PRINT"I@PRRbSbIE FibEi kbi bi Bi Bi BB nei 4 " 

PRINT"ISPEREbEE IE Bil ABl Ni hi Ai El KB © 

PRINT"IPAERPRPEE W ar a Zu 8 
PRINT'CERRERE " [7 Zn u Be 
PRINT'"IRERbhRE I zur a wa 8 
PRINT"IEERbEREE = u ' - m“ 
PRINT’SEREFERIE = mi we nun m 
PRINT"iKRERPERE BE miP won 2m u 
PRINT"IARDRPERNE Mn: nn. 104 _ 





Compute mik = 


36 


programme 


810 
820 
830 
840 
850 
860 
870 
BB0 
870 
Foo 
710 
920 
730 
240 
950 
360 
770 
250 
390 


PFRINT"IERpRbERF Mn ln m beiiiieig IM 
FRINT' IRRE Ei 
PRINT" H Ze. 
FRINT'ERBkAEn us’ 

PRINT" u t ö u 
PRINT'IERBE FT 4 
FORI=LOTGOSTEP-1: PRINT ’ERKRERDDEENERRTIKERE" TAB (35) " Eu T 
VOLS: SOUND, 739,5: FORT=OTO0240 | 
NEXTT,I 

SOUNDS, 937,351 RETURN 
REM —m——m—m—— au man | 
REM - MELODIEN - ; I 
REM -—mum—unumnn 
REM MELODIE 1 l 
RESTORE 4 
FORI=1TD08s: READAS{TI „ADIT3 L 
SOUNDE „ABtI3 „ADEI)SEBUNDZ2 ,AStDI+3,ADID 
NEXTISRETURN 

REM MELODIE 2 








1000 RESTORE 1230 
1010 FORI=1TO7:READTTLD,TR(N 

1020 SOUNDI,TT{T) ,TR{H) SOUNDZ2,TTII}+S,TRITDD 
1030 NEXTISRETURN 

10490 REM ----- un 

1050 REM - HIBHSCGRE LISTE - 

1080 REM ————mmumnmenenemen 

1070 PRINTCHR$ (27) "N" =PRINTCHRE (14) 

1080 YY=Os Rl=0: COLORO, 13 COLDRO, 1: COLOR1,8,2 


1070 PRINT" ERWERBER 





Bl :ISHSCHRE LISTE" 


1100 RRINT'R - = = = BE ERIRE: wg" 
1110 FORI=1TOS: PRINT"WILATZ" I; 
1120 IFNP (I) <UANDRU=OTHENPRINT "ERERBERHTIHR PLATZEM" : BOSUB1200:NP (I) ml: YY=1sRl=i:N 


EXT 


1130 IF (IC&) ANDNAS (DI< >" "THENPRINT "ERBEN" NAS (DD PRINTIWEUBERBRAI'NP (1) : NEXT 
1140 IFI<SATHENPRINT’ERBRSINICHT BELEST":NEXT 

1150 FORI=OT010:8ETAF: NEXT 

1150 IFRU=1THENINPUT "RI HR SAME 7"; NÄAS(YYISELSE:GOTDI11BO 

1170 IFLENINAFLVYIDSI ATHENPRINT" ZU. LANGILIT" : BoTal 150 

11806 PRINT"IPRUECKE EINE ! ASTE"sU=eO:E=0 

1190 BOSUBF70: SETKEYA#: BOTOSZO 

1200 FORT=STOISTEP-1:NAFLT+1) =NAS{TIENFET+HI)SNP CT) 

1210 NEXTT=RETURN 

1226 DATAS968,15,571,10,516,15,594,15,571,15,643, 15,685, 15, 455, So 
1230 DATA7S9,10,704,10,739,10,770,10,739,10,704,10,685,35 


Key-Heiper ist ein Anwendungsspro- | aufgerufen. 2 = Befehl wird ausgeführt 
gramm für den 616/116 das besonders | Nach dem Start werden Sie gefragt, wel- 

gut für Anfänger geeignet ist. Mit diesem | che Funktionstaste Sie belegen möchten. 3 = Anführungsstriche 
Programm können Sie die Funktionsta- | Dann erscheint die Frage, welcher Befehl 


sten Ihres Computers belegen und ver- | ausgeführt werden soll und ein Menue 
schiedene Furktionen, die dauernd benö- | wird angezeigt. 


Im Einzelnen bedeutet das, daß 


tigt werden, definieren. Dadurch werden . | T. der Befehl nach dem Drücken 
Befehle oder Routinen über die Tastatur 1 = Einfach der Taste nur geschrieben wird 
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REM 
REM 
REM 
REM 
REM 
REM # 
REM 


VERKEHRT 
* KEY-HELPER * 
* * 
* 1985 BY * 
* M. WEGHORST # 
29773 RAHDEN 
Bea 2 5 22 22 2 22022 


% 


100 
110 
120 
139 
130 
150 
150 
170 
130 
170 
200 
z10 
220 
230 
240 
250 
z&0 
270 
280 
290 
300 
310 
320 
330 
240 
350 
260 
370 
330 
370 
400 


PRINT" 1-83" 
BETKEYXF:X=VAL OP 
IFXX10ORX>8THEN15O 
SCHELR 

PRINT" SRERBTER" 


INPUTAF 
SENELR 
PRINT "gast 


PRINT"RRBiii= EINFACH 
PRINT "aRBEI?= 
FRINT'"'bERBETT = 
BETKEYZ 

ON Z E0TD 300,320,340 
KEYX,AS 
PRINTHLKEY" XS" 
KEYX „AS+CHRS (13) 
PRINT"LKEY"gXg" 
KEYX „AS+CHRS (34) 
PRINT"IKEY"SNS®, 
PRINT "ustereisieiet" 


IrBs=" 3" THENGG 
IFB£="N"THENNEN 
BOTOS?O 





SCNELR: COLORO,1:COLOR1,2 
PRINTTAB {9} "Herkkkbl KEY-HELPER":IREM FLASH ON 
PRINT'"REBBRI(C) BY M. WEBHORST" 
PRINT"ERBEBRBj4793 RAHDEN" 

PRINT"BEESBITTE GEBEN SIE VON DEN" 
PRINT"FUNKTIONSTASTEN NUR DIE ZAHL EIN" 


2. der Befehl nach dem Drücken 
der Taste geschrieben undaus- 
geführt wird 


PRINT"GBBRBRBEBEN SIE DEN BEFEHL FUER DIE" 
PRINT'ERRRERFUNKTIENSTASTE EIN“ 


FRINT'RERER| KEY-HELFPER " 


BEFEHL WIRD AUSSEFUERT" 
ANFÜEHRUNGSSTRICHE = 


3 FEHRS (3A) +AFH+CHRS (34): E0TOSSO 


"4+CHRE (34) HAS+CHRE (343 "EHRE 134)" 


INPUT"WELLEN SIE NOCH EINE TASTE BELESEN J/N "ıB# 


programme 


3. der Befehl nach dem Drücken 
der Taste geschrieben wird und 
anschlieBend Anführungsstri- 
che gesetzt werden 


Haben Sie eine Zahl aus dem Menue ge- 
wählt, wird der ganze Befehl, den man für 
das Belegen der Funktionstaste benöfigt 
hat, auf dem Bildschirm angezeigt. 

Auf diese Art kann man schnell und un- 
kompliziert die Belegung der Funktionsta- 
sten lernen, 

Um eine Löschung des Programms zu ver- 
meiden, sollte man vor dem ersten Start 
des Programms den Befehl „new“ in Zeile 
390 in „End“ abändern. _ 


Variablenliste: | 
A$ =.Befehl der ausgeführt werden 


soll | 

B$ = Abfrage zum Weiterführen des 
Programms | 

| Z = welche Belegung gewählt wird 





‚"HCHRS (34) HAS+CHRS (34) "+CHRS (13) "1 BOTOSEO 


Leserecke + Nieckerecke 


G-16 Programme 


Herzlichen Glückwunsch für Ihre gelunge- 
ne GComputerzeitschrifi. Während andere, 


mehr als doppeit so teure Gomputerzeit- 


schriften, nichts als Unsinn und Werbung 
bringen, findet man bei Ihren sur guie 
Programme, wertvolie Tips & Tricks und 
Informationen. Nach Werbung muß man 
bei Ihnen lange suchen. Auch Hochglanz- 
papier muß nicht unbedingt sein, ich kann 
jedenfalls gern darauf verzichten. Ich per- 
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sönlich fände es gut, wenn Sie noch mehr 


über den 6-16, den ich besitze, veröffentli- 


chen würden. Dieser Gamputer kann sich _ 


auf jeden Fall mit dem G-64 messen, nur 
der Sound könnte besser sein. 


Ich bin ein großer „Compute mit“-Leser 
ung seit drei Monaten stolzer Besitzer des 
Commodore 16. Vorher hatte ich den VC- 
20. Ich finde es aber nicht gut, daß Sie so 
wenig Spiele für den C-16 in Ihrer Zeit- 
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schrift bringen. Hoffentiich wird mein 
Wunsch erhört und Sie veröffentlichen in 
Zukunft mehr Spiele für den Commodore 
16. Martin Schmidt, Verl 1 


Redaktion: 
Wir freuen uns über die possitive Reso- 


'nanz unserer Zeitschrift.bei den Lesern 


und möchen heute die Gelegenheit wahr- 
nehmen und auf etwas hinweisen, was 
uns schon seit einiger Zeit Probleme und 
Kopfzerbrechen bereitet. Die Hinweise das 
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zu wenig G-16 veröffentlicht werden sind 
durchaus berechtigt. Leider müssen wir 
aber darauf hinweisen, daß unserem Ver- 
lag nur spärliche Unterlagen für den C-16 
vorliegen. Es wäre auch in unserem Inter- 
esse mehr Infes über den C-16 zu veröf- 
fentlichen. Wir hoffen, daß eine Vielzahl 
unserer Leser diesen Artikel lesen und so- 
mit eine Flut von Programmen für den C- 
16 bei uns eingehen werden. Alle G-16 Be- 
sitzer sind an dieser Stelle aufgefordert, 
durch selbst verfasste Beiträge und Pro- 
gramme das Informationsangebot für den 
C-16 zu erweitern. 


Leerzeichen zählen 


Hurra, die neue „Compute mit“ ist wieder 
da. Endlich gibt es eine Zeitschrift die 
auch den VC-20 nicht vergißt. Ich bin be- 
geistert von Ihrer Zeitschrift, aber wie wä- 
re es, wenn Sie bei den Listings schreiben 
würden, wie oft man die SPAGE-Taste 
drücken muß. Man kommt so bei man- 
chen Listings gar nicht klar. Aber sonst ist 
die Se mit“ echt SPITZE. 

Rudi Zilie, Mülheim 


Redaktion: 

Sicherlich dürfte das von Ihnen angespro- 
thene Problem allen Gomputer-Besitzern 
bekannt sein und viele haben sich auch 
schon einmal über das lästige und 
schwierige Zählen der Leerzeichen geär- 
gert. Leider istes uns z. Z. aber nicht mög- 
lich Ihnen auf irgendeine Art Abhilfe zu 
verschaffen. Dieser Vorschlag von Ihnen 
würde mehrere programmtechnische 
Veränderungen hervorrufen, die doch 
sehr zu Lasten der bisherigen Transparenz 
und der Einfachheit der Listings gehen 
würde. 


Spielerweiterung 
für „TOWER“ aus Heft 8/85 


Das Spiel „TOWER" hat mit sehr gut gefal- 
ien, sowohl grafisch als auch von der 
Spielidee her. Allerdings merkt man deut- 
lich, daß, wie in der Beschreibung er- 
wähnt, die Spielstärke des Rechners in 
Grenzen gehalten wurde. 


Nach kurzer Übung istesein Leichtes, den 
Computer zu schlagen. 


Versuchen Sie doch einmal den Modus 2 
(Spieler/Spieler) allein ohne das eine Vie- 
rerreihe entsteht. 
Zur Erfolgskontrolle kann man folgende : 
Zeilen des Programms ergänzen: 


3650 SOUND 1,200,20: N=N+1: 
LOCATE 35,24: PRINT N; 


520 SOUND 1,200,20: N=N+1: 
LOCATE 35,24: PRINTN 


Der Gomputer gibt nun in der rechten un- 
teren Ecke des Bildschirms die Anzahl der 
gesetzten Steine aus. 

Karl-Heinz Köhler, Schwalmstadt 


Redaktian: 

Eine sinnvolle Ergänzung des Program- 
mes, die den Spielablauf verändert und 
noch interessanter gestaltet. Wir hoffen | 
unsere Leser haben Spaß an dieserkurzen | 


Ergänzung. 


Auftrag für r Gelegenheitsanzeigen in „Compute mit er “ 


Name und Adresse 


An „Gempute mit ..: 
Tronic-Verlag 
Postfach 

3444 Wehretal 1 


Unter der Rubrik „Kleinanzeigen“- 
veröffentlichen wir Gelegenheits- 
anzeigen für Verkaufsangebote, 
Kauf- und Tauschgesuche, Kon- 
taktaufnahme bzw, Erfahrungs- - 
austausch usw. 


Aktuell: 

Unsere Preise für „Kleinanzeigen“: 
Jede Kleinanzeige nur 10,- DM 
Jede gewerbliche ; 
Gelegenheitsanzeige nur 15,- DM 
(dürfen nicht unter Chiffre erschei- 
nen) 

Eine Veröffehtlichung erfolgt nur 
gegen Vorkasse! 


Kleinanzeigen jetzt 
noch preiswerter 


biete an OD Software 


Unterschrift 


ich wünsche folgenden Text zu veröffentlichen: 
BE 9) BE ER LEE | Be DE ae Dr | 9° 8 es en Bo 3 ea ER EN Sn N | 








0 a 1 Be Ze AR Is] BR 1 BI 8 DE 2 De De RAIN es BE RESP bes BERN 











suche U) Software 


GCompute mi 


suche O Hardware  * 
biete an O Hardware 


Zutreffendes ankreuzen 
O Tausch O Versch. 
© Kontakte O Chiffre 
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Suche Hardware 


© 16/C 115: Neues Superprogramm „Quicky“ 
- ein neues Labyrinthspiel auf Kassette für 
nur 15,- bei Frank Knöller, Gaisberg 8, 7134 
Knittingen -—— = 7 0 


4 Commodore + Schneider 
Professionelles Astrologie-PRG. 5 Sei- 
ten Persönlichkeitsanalyse inct. Grafik, 
Aspekte, Alle Berechng, + Text, Sehr 


günstig. Info gegen Rückporto. Schu- 
9 macher, Carl-Zeiss-Str. 14, 3200 Hil- 
EB desheim, Tel. 05121/23646 





Wern Sie Software für Ihren Schneider CPC 
suchen, sind Sie hier richtig. Einfach das 
kostenlose Informationsmaterial anfordern. 
Karte genügt an Friedrich Neuper, 8473 
Pfreimd, Postfach 72 


©-564-Software anfordern!!! Es lohnt sich!fl 


Info bei Eurosoft, Apt. 763C, Santiago, Spa- 


rien & ; 


Verkaufe für CPC 464 Top-Software 
23 Programme für 20,- DM, z. B. 
\ Adressverwaltung Turbo Tape, Spiele | 
uvm. Keine Raubkopien !?! 
Suche billig Software: z. B. Pascal: Tausch 
möglich. Inform. Schlarmann, Heinrichstr. 
18, 2843 Dinklage 








. Commodore-Software - Aktuelle Liste, und 
Midi-Software, Liste lohnt sich, bei Euro- 
Soft, Apt. 763, Santiago, Spanien 





Happy Days for Portemonnaies! 
The new games for your G-64: 


Summer games | KD 49--/ 59- 
AViewtoakil KD 49--/ 59- 
Gremlins K 44,90 
Beach Head 2 K 44.90 
Frankie 9.t0.H. K 44,90 
Ultima It D 59,-- 


Software-Versand A Bachler, Blücherstr. 24, 
4290 Bocholt 


CPC 464 & Suche dringend billigen Matrix- 
drucker. Angebote an Markus Gebhard, Mar- 
komannenstr. 40, 8000 München 70. 
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| ü Biete an Hardware u 


- Weir SENSATIONELL: Zusatzlaufwerke für 


% Kleinanzeigen % Kleinanzeigen % Kleinanzeigen %* 





Suche Kontakt zu anderen GPC 464 Usern. 
Bitte meldet Euch bei Folgender Anschrift: 
Hartmut Buelow, Teschensudberg 41 B, 5600 
Wuppertal 12, Tel. 90202/471960 ab 17.30 
Uhr 


Schneider CPC 84 - User Maluche Lothar / 
cm Peter-Dörfler-Str. 70, 8998 Lindenberg/ 
Allgäu, Tel. 08381/7468 








Schneider CPG-464 und CPC-664 wnirick 
im Gehäuse und mit allen Kabein 5774" 7 
40 Track / einseitig 549,- DM #3" /40 Track / 
einseitig 339,- DM 1 
KDB-COMPUTER-VERSAND, Kornstraße 28, 
5800 Hagen 7, Tel. 02331/400601 


G3&S Computerservice, Rudi Gutemann u. 
Dieter Schulz, Soft- u. Hardware C-64. Unser 
Angebot: Farbb. Epson 80, 801, 802 je 15,95, 
Disketten 3. 50 St. 10er Box 39,50, Abdeck- 
haube 12,25, Lüfter 37,90, Box 85 Disk. m. 
Schtoß 35,50, Diskettienioch. 12,95, Eprom- 
brenner kpt. 159,00. D. Schulz, Funkenstr. 42, 
5020 Frechen, Tel.: 022 34/5 7848. Kataloq 
kostenlos 


BEBBE Alesfürdncrc BURRAM 


EM Vortex Floppy F1S 5,25” 1.198, 5 
M Vortex Floppy F1D 5,25” 1.698, 3 
M Speichererw. 128-576 K ab210,- 4 
EB Drucker Star SG-10 M.NLQ 985,- M 
EB Cumana Floppy 3” 398,- M 
u Software von ISS, Star, RH u 
E Katalog 2,- Rückporto Briefmarken 3 
5 Cico' Tronics, Pf. 222, 7146 Tamm . 


VC-20 + 3KRANM Speichererweiterung + ca. 
80 Spiele + Schach und Nachtraway als 
Steckmodule zusätzlich noch 5 Bücherz.B. 
Spielebuch und anderes. AlleszumPreisvon 
nur 270,- DM. Interessenten bitte melden bei 
Bernd Heinrich, 2000 Hamburg 50, Sutt- 
nerstr. 36, Te!. 040/43 5522 


% Kleinanzeigen % Kleinanzeigen x 
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SCHWEIZ: Demo-Geräte Schneider CPC 
grün oder color mit Joystick und Disketten- 
station superpreis. Tel.: 01/462 1957. COM- 
PUTER MARKET, Meinrad-Lienert-Str. 15, 
Zürich. Do 17-21 Uhr, Sa 10-16 Uhr 


VALCOM 1-RS 232/V. 24-Schnittstelle für 
Ihren Schneider CPC 464. Einführungspreis 
VALCOM 1+ Software + dataphon S21dnur 
DM 538,-. info gegen DM 1,30 bei Ihrem 
Schneider-Spezialisten VALGC Computer 
GadbR, Waaggasse 4, 8230 Bad Reichenhall 


0.0. Verkaufe VC 20 ...s 
Mit 12 Modulen /t 3KSuperExpander/1 8K 


- EPW/B Büchern/6 Spielkassetten /für nur 


600 DM. 
Stefan Sommer, Josephskirchstr. 13, 6000 
Ffm. 50, Tel.: 526991 


Verschiedenes 


Disketten, Cassetten, Zubehör: 

10 Disk. 5.25” ss/dd nur 54,00 DM, 10 Disk. 3” 
{für Schneider) nur125,-—- DM! Ab 100 DM frei 
Haus! Wo gibt's das? Natürlich bei Dietmar 
Brüggendiek, Software, EDV-Zubehör, Post- 
fach 52.0119, 4600 Dortmund 50. Preisliste 
kostenlos! 





® Sensation!@Unser brandneuer Katalog Ist 
da! Mit viel Hard- und Software für Ihren C64/ 
128/VC20! Supersonderangebote: Spiele, 
Adventures, utilies, User, Interfaces, Aces- 
soires u.v.m.! Z.B.: DFÜ-Interface Thermo- 
control, DiscAid, $Superaction mit White 
Shark etc! Gleich anfordern gegen 1,60 bei: 
CompVersand, U. Tiedau, Ölmühle 27, 4270 
Dorsten 1 


+ VC-29 + ohne Erweiterung. Wirtippen Pro- 
gramme für 1 Pfg. pro Zeile ab. Prg. an: Rainer 
Schmitz, Hengstbrüchelchen 17,5108 Mon- 
schau, Tel. 024 72/7811 (Schnelle Bearbei- 
tung) B 


Ditsche. Übers. Flugs. IE ® Superpokes ® 


"Adv. Lösungen ® Geldv. mit Computer ®& 


Schaltplan C 64 ®@ Mailbox-Nummern ® 
Befehle für Sim. Basic ® Exbas lv i & 
Vizewrite@ Tips + Tricks C 64 @ Lesekopfein- 
stellung ® @ ® Dieses alles für 30,- DM. Info 
Rückp. oder 04321/31711 @ von Sascha 
Willdiens, IIsahl 13, 2350 Neumünster 


®e Ein Muß für alle C-64-Freunde o 
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Fortsetzung der alphabetischen Befehlsliste 
Bit Test Bits in Memory wilh Accumulator (Vergleiche die Bit's einer Speicherstelle mit dem Akkumulater) 


Dieser Befehl ist eine Besonderheit des 6510 (6502). Erverändert keine Registerinhalte, 
sondern wirkt nur auf die Flags. Er führt zwischen Akku und der adressierten Speicher- 


stelle eine UND-Verknüpfung durch. Ist das Ergebnis dieser Verknüpfung Null, so wird 76543210 
das Z-Flag gesetzt, ansonsten wird es gelöscht. Zusätzlich wird das 6. Bit der adressier- ————— 
ten Speicherstelle in das V-Flag übernommen. Das 7. Bit wird vom N-Flag übernom- NV BDIZC 
men. Damit kann man ohne Zerstörung von Registerinhalten diese Bits einer Speicher- xXX x 
stelle überprüfen. ae . 
HEX Adressierung Bytes Syntax 
24 Null-Seite (direkd) - 2 BIT $ addr 
2C Absolut (direkt) 3 BIT $ addr 
Beispiel: LDA 1843 ‚Wert im Speicher Dieses Beispiel liefert folgendes Ergebnis: 
STA $GFOO ;ablegen $10 = % 00010000 
LDA #$0A ;Akku mit Wert 10 laden 543 = % 01000011 
BIT SCFOO a ebgiohetstsllaun. % 00000000 = Ergebnis der UND-Verknüpfung 


Die UND- (AND) Verknüpfung liefert das Ergebnis Null, dadurch wird das Z-Flag gesetzt. Das V-Flag wird gleich dem 6. Bit des 
Operanden, also 1, während das N-Flag gelöscht wird. Das Ergebnis ist also: 
Z-Flag=1 V-Flag=1 N-Fag=0 


BMI Branch on Result Minus (Verzweige, wenn Negativ-Flag gesetz! istn= ) 


Dies ist ein Verzweigungs-Befehl, der genau wie der BCC-Befehl arbeitet, mit der Aus- 
nahme, daß die Verzweigung nur ausgeführt wird, wenn das Negativ-Flag gesetzt (n=1} 
ist. Andernfalls wird der nächste Befehl ausgeführt. Das Negativ-Flag ist gesetzt, wenn 76543210 
das Ergebnis einer Operation größer 128 ist, also Bit 7 gesetzt ist. NV BDIZC 


HEX  Adressierung Bytes Syntax nicht beeinflußt 


30 Relativ 2 BMI data 


Beispiele: LDA # 130;eine negative Zahl wird gela- LDA #55 ;eine positive Zahl wird gela- 
den den 
BMI %&+7 ;Sprung wenn N-Flag = 1 BMI &*+7 ;Sprung wenn N-Flag = 1 
LDA #10 ;Lade Akku mit 10 LDA #10 ;Lade Akku mit 10 
JMP END ;Sprung zum Ende JMP END ;Sprung zum Ende 
LDA #20 ;Lade Akku mit 20 LDA #20 ;Lade Akku mit 20 
END ;Ergebnis = 20 END ;Ergebnis = 10 
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kurs 


(Verzweige, wenn Negativ-Flag gelöscht ist) 


Dieser Befehl arbeitet wie der BMI-Befehl, mit der Ausnahme, daß die Verzweigung nur 


ausgeführt wird, wenn das Ergebnis einer Operation nicht negativ ist (N=0} ist. 


HEX "Adressierung Bytes 
10 Relativ ; 2 


Beispiele: LDA # 130;eine negative Zahl wird gela- 


den 
BPL *+7 ;Sprung wenn N-Flag = 
LDA #10 ;Lade Akku mit 10 
- JMP END ;Sprung zum Ende 
LDA #20 ;Lade Akku mit 20 
END ;Ergebnis = 10 


BNE Branch on Resuli not Zero 


76543210 
NV BDIZG 


Syntax | nicht beeinflußt. 
BPL data en 


LDA #55 ;eine positive Zahl wird gela- 


den 
BPL %*+7 ;Sprung wenn N-Flag = 0 
LDA #10 ;Lade Akku mit 10 
JMP END ;Sprung zum Ende 
LDA #20 ;Lade Akku mit 20 
END ;Ergebnis = 20 


(Verzweige, wenn Z-Flag gelöscht ist Z = 0) 


Dieser Befehl stellt das Gegenstück zum BEQ-Befehl dar. Die Verzweigung wird ausge- 


führt, wenn das Ergebnis einer Operation ungleich 0 ist, also das Z-Flag gleich O ist. An- 
dernfalls wird in der folgenden Befehls-Sequenz weitergefahren. 


HEX Adressierung Bytes 
Do . Relativ 2 


Beispiele: LDA 0 Akku wird mit Null geladen 


Z-Flag=0 
BNE &+7 ;Sprung wenn Z=0 
LDA #10 ;Lade Akku mit 10 
JMP END ‚Sprung zum Ende 
LDA #20 ;Lade Akku mit 20 
END ;Ergebnis = 10 


BAK Farce Break 


Syntax 
BNE data 


76543210 
NV BDIZG 
nicht beeinflußt 


LDA #25 ;Akku wird mit 25 geladen 
‚Z-Flag = 0 

BNE #+7 Sprung wenn Z=0 

LDA #10 ;Lade Akku mit 10 

JMP END 

LDA #20 

END ;Ergebnis = 20 


(Erzwinge Unterbrechnung] 


Lädt die CPU den Operationscode des Befehls BRK, führt sie eine Unterbrechungsroutine aus und springt an die durch den IRQ-Vektor 
gekennzeichnete Speicherstelle. Im Gegensatz zum Hardware-IRQ-Aufruf reagiert der BRK-Befehl nicht auf das I-Fiag. 

Nach der Interpretation des BRK-Befehles wird der Befehlszähler um zwei inkrementiert und der Break-Status wird auf 1 gesetzt. 
Dann wird der Befehlszähler und das Status-(P) Register auf den Stapel gebracht (pushed). Die Register und die entsprechenden 
Speicherplätze, in die diese gebracht werden, sind folgende: 


Stapelzähler enthält ss am Beginn der Befehlsausführung 


Speicherplatz Register 
$01ss High-Byte des Befehlszählers 


$01ss-1 Low-Byte des Befehlszählers 
$01ss-2 Status-(P} Register mit B=i 





Der IRQ-Vektor steht beim Prozessor 6510 (6502) immer in den Speicherstellen $FFFE und $FFFF. 
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Das bedeutet: 

Wenn ein Interupt ausgelöscht wird, springt der Prozessor in die Speicherstelle, die in 
dem IRQ-Vektor angegeben ist. in der Regel steht diese im ROM des Microcomputers 
und ist nicht veränderbar. Dies ist auch beim C64 der Fall. Jedoch wird hier noch über 
einen weiteren Vektor gesprungen, welcher im RAM steht. Wir werden später noch ge- 
nauer auf den Nutzen dieses zweiten Vektor’s eingehen. 

Der BRK-Befeh! kann für eine Vielzaht von Aufgaben verwendet werden. Er kann zum 
Beispie! als Breakpeint (Haltepunkt) in ein Maschinenprogramm eingebaut werden. 
Somit lassen sich Programme sehr gut auf Fehler untersuchen. 

Oder er kann die Steuerung zu einem besonders wichtigen Software-System, wie ei- 
nem Disketten-Betriebssystem oder einem Monitor, transferieren. 

Der Operationscode des BRK-Befehles ist 0. Dies bedeutet, daß der BRK-Befehlzum Ein- 
bringen von Programmen in ROM’s mit Schmelzsicherungen verwendet werden kann, 
da das Durchschmelzen aller Brücken den Inhatt des Bytes auf 0 bringt. Dadurch kann 
jeder Befehl durch den BRK-Befehl überschrieben werden. 

Will man nach einem Interrupt das Hauptprogramm weiterführen, so müssen die Regi- 
ster, welche durch das Interrupt-Programm beeinfiußtwerden, gerettetwerden. Dastol- 
gende Beispiel demonstriert eine Interrupt Routine: 


PHA ;bringe Akku auf Stapel 
TXA ;bringe X-Register 

PHA ;auf Stapel 

TYA ‚bringe Y-Register 

PHA ;auf Stapel 


a a oa 0 He IH Daıitıina = se 


ae Be Ra a Te rar m 
a a a EG.“ 


[ee ee Br Br Be 


> tr 


PLA ;hole Y-Register 


TAY ;vom Stapel 

PLA ;hole X-Register 

TAX ;vom Stapel 

PLA ;hole Akku vom Stapel 


ATI ;Hauptprogramm weiterführen 


(Verzweige, wenn Überlauf gelöscht v=D) 


“ BYE Branch on Overflow Clear 


Die Funktionsweise des BVC-Befehls ähnelt der des BCC- Befehles jedoch mit der Einschränkung, daß die Veayeisin nur ausge- 
führt wird, wenn der Überlauf-Status 0 ist. Ist das Overflow-Flag V gelöscht, wird der Befehl ausgeführt, Das Overflow Flag (V) hat 
eine ähnliche Funktion wie das C-Flag, es zeigt an, wenn ein Übertrag von der siebenten (Bit 6) auf die achte Stelle (Bit 7) erfolgt. 
Dieses Flag wird in erster Linie zur Berechnung von Arithmetik-Aufgaben verwendet. 76543210 


NV BDIZG 
nicht beeinflußt 


HEX Adressierung Bytes 
50 Relativ ? 


Syntax 
BVC data 


Beispiel: LDA 
+%00100000 ‚lade Akku mit 32 
ADC 
+#%10000000 ;Addiere 128 zum Akku 
‚V-Flag wird gesetzt 
‚Sprung wenn ya! 
- gelöscht 
‚Lade Akku mit 10 
JMP END Sprung zum Ende 
LDA #20 ‚Lade Akku mit 20 
END ;Ergebnis = 10 


LDA 

#%00011010 ‚Akku wird mit 13 geladen 

ADC #10 ‚Addiere 10 zum Akku 
;Y-Flag wird gelöscht 

‚Sprung wenn V-Flag 

gelöscht 

;Lade Akku mit 10 

JMP END ‚Sprung zum Ende 

LDA #20 ‚Lade Akku mit 20 

END ‚Ergebnis = 20 


BVG *+7 
BVC *+7 
IDA #10 
LDA +10 


Literatur: 


‘. 6502 Microcomputer-Programmierung, Peter Heuer, Hofacker Verlän 
6502 Programmierung in Assembler, Lance A. Leventhal 
64 Intern, Angershausen, Becker, Englisch, Gerits, Data-Becker Buch 
6502/65c02, Cristian Persson, Heinz Heise Verlag 





« | Sompube mib 0 





| „bompute mit“ veröffentlicht erstmals ein 3D-Programm 


Labyrinthe faszinieren die Menschen 
schon seit Urzeiten, und so istes auch 
nicht verwunderlich, daß es für die ver- 
schiedensten Computer mehrere Va- 
riationen von Labyrinth-Programmen 
gibt. Wir veröffentlichen hier ein Top- 
Programm für den Schneider GPC 464. 


Was Labyrinthe (oder Irrgarten) sind, wer- 
den wohl alle wissen, 

Das Programm beginnt nach dem Laden 
mit dem:Aufmalen des Titelbildes. Dann 
geht es zu einer Spielanleitung über, wo- 
nach nach dem Drücken einer Taste die 
Erstellung des Labyrinthes beginnt. Hier- 
zu malt man selbst (oder ein Gegenspie- 
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für Schneider! 


ler) ein Labyrinth nach eigenem Ge- 
schmack auf. Das Ganze sieht man zwei- 
demensional von oben. In der Mitte des 
unteren Bildschirm-Randes steht ein ’5’ 
für den Start. Dieses istimmer an der glei- 
chen Stelle. Darüber befindet sich ein 
Kreuz, der Cursor, mit dem man das Laby- 
rinth aufmalen kann. Der Kreuz-Cursor 
wird über den Joystick oder die Gursor- 
Tasten gelenkt. Wenn das Labyrinth fertig 
gemalt ist, fährt man den Cursor an die 
Stelle, an der das Ziel sein soll und drückt 
den FIRE-Button oder die GOPY-Taste. An 
dieser Stelle erscheint nun ein ’Z für Ziel. 
Nun drücktman nochmals die Feuer- oder 
Copy-Taste, und der Hauptteil in 3 D be- 


ginnt. 

Jetzt muß man sich durch das Labyrinth 
bis zum Zie! durchschlagen. 

Ist man am Ziel angekommen, ändern 
sich die Farben, eine Melodie ertönt und 
das Wort Ziel wird in der Bildschirmmitte 
ausgegeben. 


Durch Drücken einer beliebigen Taste be- 


ginnt das Spiel von vorne. 

Diesmal erscheint das Titelbild blitz- 
schnell und wird nicht wie beim ersten 
Mal aufgeraft. Das liegt daran, daß es 
durch eine Maschinen-Gode-Routine ge- 
speichert wurde und durch so eine auch 
wieder auf den Bildschirm gezaubert wird. 
Die Maschinen-Code-Routinen kann man 


In diesem Labyrinth soll sich ein Mensch zurechtlinden. 


Computbe mik 
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Programme 


Sich in eigene Programme einbauen. Dazu 
muß man nur die Zeilen 170,180,190,210 
und 220 abschreiben. Durch Call 40050 
wird der Bildschirm gespeichert und 
durch Call 40000 wieder auf den Bild- 
schirm gebracht. Dazu muB das Basic 
Programm natürlich mindestens einmal 
gelaufen sein und der Mode, in dem das 
Bild gespeichert wurde, muß stimmen. 
Call 41000 ist für andere Programme un- 
interessant, da es nur noch den Grafik- 
Bildschirm mit löscht. 


“u %* 


. Während des 3D-Teils steuert man durch 


den Joystick oder die GOPY-Tasten. 

In der unteren Mitte des Bildschirms istein 
kleiner Kasten mit einem Pfeil. Mit dem 
Joystick oder den Copy-Tasten bewegt 
man den Pfeil in die gewünschte Rich- 
tung, und ein Druck auf die Fire- oder Co- 
py-Taste läßt Sie einen Schritt in die ge- 
wählte Richtung vorgehen. Wenn man 
den Pfeil nach hinten macht (oder unten), 
dann dreht man sich um und geht in um- 
gekehrter Richtung einen Schritt weiter. 


Variahlenliste: 


1,J,R,c,d 
1a(1..40,1..25) 
10 EEE | man(1..40,1..26) 
20 ”"*#  3D - LABYRINTH #*#+ I %Y 
30 “rHD------ ..* IT 
20 2 5 E27 2 202 5.7 272 2077227077227 72.202777 ai 
so *## Written % Designed ##* zZ 
0 ... by... “ | 
70 “#4 Christian Moeller ##*% | £ALUS: 
80 “u. ... CALL 40009 


[ 
[3 
[ ee Ber u U & Be Er er Er Er 


HAHN 


nn 


45% 


CALL 40050 
| CALL 41000 


100 '. #88 (c} July 1985 
EEE ENTER IR EN ERRE 
120 
130 IF PEEK{3S000)=&FF THEN BOTO 410 
140° — mann 
150 Titel —- Initialisierung 
180 27 == Tre 
170 MEMORY &4E1F:RESTDRE 210 


DATA &01,4FF,&3F,&11 


FOR i=40000 TO 400141:READ n:PÜKE i,n:NEXT i 
FOR i=40050 TO 4006i1:READ n:POKE i,n:NEXT i 
FOR i=41000 TO 41014:READ n:POKE i,nıNEXT i 
‚&00,8&C0,%&21,820,&4E ‚LED,&BO,LLY 
DATA &O1,8FF,&IF ‚11,820, &4E,&21,800,8C0,&ED,&BO,8&C9 
DATA &01,&FF,&3F ,&11,%00,800,&21,&20,&4E „RED, &BO,&CD,&DB,&BB,&C9 


230 
240° mn mn 

250 MODE 1sCALL &BB4E:ORIBIN 0,0 

260 BORDER O: INK 0,0:INK 1,11z2INK 2,26: INK 3,0 
270 

280 FOR i=0 TO 368 STEP 2:FÜOR j=0 TO 16 


570 Titel-Bild 


Compute mik 


Kommen $ie wieder am Startan, erscheint 
in der Bildschirmmitte der Ausdruck 
"START. Sehen Sie keine Lösung oder fin- 
den Sie nicht zum Ziel, können Sie immer 
noch die ’M’-Taste drücken. Dann wird das 
Labyrinth in 2D von oben gesehen aufge- 
malt. Der gegangene Weg, die augen- 
blickliche Position, der Start und das Ziel 
werden angegeben. 


“r% 


Schleifen-/Hilfsvariablen 
Speicherung das Labyrinths 
Speicherung des gegangenen Weges 
aktuelle Position im Labyrinth 

Wert für den Richtungswechsel 
Richtung, in die man geht 

bestimmt, welche DRAW-Routine aus- 
geführt wird 


verschiebt 16K langen Bereich von 
20000 in den Bildschirmspeicher 
verschiebt den Bildschirmspeicher in 
einen 16K langen Bereich ab 20000 
‘wie Gall 40000, nur Grafik-Fenster 
wird mit gelöscht 





LOEATE 1,25I3PEN 3:3PRINT"3SD-LABYRINT H" 


IF TEST(i1,j)=3 THEN PLOT i+136,j*2+34B,2:PLOT i+140, j#2+36B, 1 
NEXT j3,i1:LOCATE 1,25:PRINT CHR$ (18) 
GDSUB 2400: INK 3, &: PEN S:LOCATE 12,16 
PRINT"Written & Designed": LOCATE 19, 18: PRINT”’by.." 
LOCATE 15,20:PRINT"Christian M. ":PEN 1:1LDEATE 15,22 
PRINT"July "SCHRSE (164) 3" 1IBS"SPEN 3 
PLOT 298,656,i1:DRAWR 25,0:DRAWR 0,-22:DRAWR -25, ‚©: DRAWR 0,22 
LOCATE 3,24: PRINT">>>>>>>>>> Fress any key eretcececen 

ERALL 40050: POKE 58000, &FF:60TD 430 
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750 
760 
770 
Fa0O 
770 
800 
s10 
820 
330 
Ba0 
850 
340 
370 
BB0 
8970 
300 
910 
920 
730 
340 


programme 


man I rin a u m m m rm rn var 


MODE 1:BORDER O: INK G,O: INK 1,11:1INE 2,24: INK 3,6 
DALL AGOc0 
Für i=0 TO 10: in#=INKEY$:ins="":NEXTIELCALL &EB06 


ae te m nr 


E 


MODE 1:PEN 1 

LDEATE 9,2:FRINTTZD — LARYRIRT EH" 
KOIERTESASSSRRIND VISITS u 

FERN SeLOCATE 1,55 PRINT" Oglel-Änleitungs ":ıPEN i 
FRINTIPRINT'"Als 'eretes malt ein anderer Spieler" 
PRINT" (oder man selbst) mit den Joystick" 
FRINT"oder den ÜCursortasten ein Labyrirtn." 
FRINT" CHR t24): "S"SCHR$ 124): "" ist der Start „und " 
PRINT" ECHR#$iZä), "ZUYSCHRE (ZI) :"" des Ziel." 
PRINT"Wenrn man mit den Malen fertig ist, dann" 
FRINT"drusckt man [Copy] oder I[IFIREI „ und an" 
FRINT"der Stelle, an der der Gursor ir) steht," 


. FRINT"ist dann das Ziel.":PEN Z:PRINT 


FRINT"Dann beginnt der '’3-D'-Teil des Spiels." 
PRINT"Man muss das Labyrinth bis zum Ziel" 
PRINT"durchlaufen. Die Richtung, in die man" 
FRINT"gehen will,stellt man mit dem Joystick" 
FRINT"oder den LCursortasten ein.Ein Druck auf" 


FRINT"ICOPY]I oder IFIRE] laesst einen in die" 
PRINT"gewaehlte Richtung „die mit einem Ffeil" 
FRINT"angezeigt wird,einen Schritt vor gehen.":FEN 1 
FRINT:FRINT" Hilfe = *"ı:FEN I:PRINT"EIHI",:PEN i 
FRINT" — Neuer Start = "ırFEN 3:PRINT"I[S2" 

FOR i=0 TOD 10: in#=INKEYFS iIn#=""3NEXT 

IF INKEY+="" THEN 716 ELSE RuN 750 

“  Initialisierung 

CLEAR: DEFINT a-z:ENV 1,15,5,2 


DI 12140,259 „man (40,25) 

SYMBOL AFTER 200 

SYMBOL 200,0,24,60,124,2595,60,50,0 
SYMEGL 201,0,60,640,255,126,60,24,0 
SYMBüL 202,158,24,124,126,126,124,24,16 
SYMBOL 203,8,24,62,126,126,62,24,8 


[2 


MODE 1:=2BORDER O:2INK 6,0:2INE 1,20:INK 2,12:PAPER 2:PEN i 
c=20:d=23:LOCATE 20,24: PRINT"S":1a120,24)=2 

PAPER 3:FEN 1: LOCATE c,dsFRINT"+" 

FAFER 13 L0CATE c,d:PRINT" "slalc,d)=i a 

IF INKEY{OJ=0 OR JOYto)=1 THEN d=d-1:5607T0 950 

IF INKEY(2)=0 OR JOY(iOo)=Z THEN d=d+1:60T0 750 

IF INKEY(S}=0 OR JOYtG)=4 THEN co=c-1:6070 950 

IF INKEY(1)=0 OR JOYtO)=B THEN c=c+1:60TD 950. 

IF 'INKEY(M=O OR JFDY(Or>15 THEN GOTD 990 

IF INKEY{täO)=0 THEN RUN 750 


GSompure mi 


ah ae egeepeirge ge oeia 


programme 


50 
YA0 
970 
FEo 
2790 
1000 
1010 
1020 
1030 
1040 
1050 
1040 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1150 
1170 
11850 
1170 
1200 
12710 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1270 
zZB00 
1300 
I 2000 
12310 
ZB00 
1220 
Bo0 
1330 
1240 
1350 
1340 
1370 
13BO 
137G 
1400 
1410 
1420 
‚1430 
1440 
1450 
1450 
1470 


FÜR 


IF c>37 THEN c=39 ELSE IF c{Z2 THEN c=? 

IF d>24 THEN d=24 ELSE IF di2 THEN d=? 
PAPER 3:PEN 1:LDCATE c,d:PRINT"+" 
z=1 TOD 3:CALL &RD19:NEXT:GÜTG 870 
IF c=20 AND d=?4 THEN d=73 

FAPER Z:PEN 1:LDOCATE EstiePRINT"Z":latc,d)=Z 

LOCATE 20,24: PRINT"S":1a(20,24)=? 

INK 0,0:1INK 1,2&5:FAFPER 1:PEN O:LOCATE | 
PRINT"Fress [COPY] or [FIRE]I to Start... ":CALL &BBIO 
IF (INKEYiW)=G OR JDY(O)=16) THEN 1080 ELSE 1030 


En de nn a nn rn 


e 


. 


»=20: y=2I:ır=-elrri=1 

MODE 1:BORDER 14:INK O,14:INK 1,0: INK 2,6 

ORIGIN 0,.0,0,5940,363,0:FAFER O:PEN i 

CALL 41000: 60T0 1350 

FLOT 299,68,1:DRAWR 25,0:DRAWR 0G,-25: DRAWR -25,0:DRAWR 0,25 


IF la(x,y)=2 THEN GOTD z910 
IF INKEY(44)=0 THEN GOTO 2536: "Hilfe | 
IF INKEY(60)=0 THEN RUN 750: ‘Neuer Start 
IF INKEY(O=0 OR JOYIO)=1 THEN r=1:'vor 

IF INKEY{(Z)=0 OR JDY(O)=2 THEN r=2: "zurueck 

IF INKEY(1)=0 OR JOYtG}=8 THEN r=3: "rechts 

IF INKEY(8B)=0 OR JOY(O)=4 THEN r=4: ‘links 

IF INKEY(P9=0 BR JOY(O)=i1& THEN GOTO 1730 
LOCATE 20,22: FRINT CHR&(r+199) 

CALL &BED19:56070 1140 

IF r=1 THEN ri=sri 

IF r=2 THEN ri=sri+? 

IF r=3 THEN ri=sri+l 

IF r=4 THEN risri-i. 

IF ri=0 THEN ri=4 

ri=({ri-1) MOD 4+1) 

IF ri=1 AND latx,y-1)£50 THEN y=y-1 ELSE IF ri=1 AND lals,y-1)=0 THEN GDTO 

: "Norden 

IF ri=2 AND latx+1,y)<>O THEN x=»+1 ELSE IF ri=2 AND iatz+1,y)=0 THEN 50TO 
: "Östen j 

IF ri=3 AND laix,y+1)£>0 THEN y=-y+1 ELSE IF ri=3 AND lalx,yt1)=0 THEN GOTO 
ı '"Sueden 

IF rı=4 AND 1atx-1,y>X>0 THEN x=x-1 ELSE IF ri=4 AND la(x-1,y)=0 THEN 6070 
: "Westen 

IF x>39 THEN x=39 ELSE IF x<?2 THEN x=7? 

IF y>24 THEN y=24 ELSE IF yi2 THEN y=2 

CiLG 6 


man{x„y)=l:r=1 
IF la{x,y3=2 THEN GOSUE 7730 
ON rı GOTO 1420,1540,1560,17BG 


m mm mn ter mr ln m m ra For ar m ac 


IF 
IF 
IF 
IF 
IF 
IF 


lalx,y-iicH 
latz1,y)<} 
la(x,y-1l)<c} 
lalx-1,y)<h 
latx,y-DD& 
latu+t1,y}< 


AND laix-1,y)3<:O AND laix+1,y)<>0 THEN z=8:60T0 1490 
AND lats+tl,y)<2>sc THEN z=7:G60T0 1490 
AND laix-1,y)£>O THEN z=5:B80T0 1490 
THEN z=5:G0T0 14570 
AND 3alx+1,y)<:O THEN z=4:50T0 1490 
THEN z=3:560T0 1490 


Compubes mi 0 


1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1500 
1510 
1620 
1630 
1540 
1550 
1550 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1360 
1870 
1850 


1890 


1700 
1710 
1920 
19730 
1940 
1950 
1750 
1770 
1780 
1970 
2000 
Bio 
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IF latx,y-1)<>0 THEN z=2:50T0 1490 ELSE z=1:6010 1490 
ON z GOSUB 1900,1950,2020 , 2080 ,2170 ,2230 ,2320 , 2390 
GOTG 1120 


E) 


ON 


eu 


ON 
[ein 


IF 
IF 
IF 
IF 
IF 
IF 
IF 
ON 


a re an m a a en en 


laix+1,y}<>0 
latx,y-1)<>O 
latx+1,y)<>0 
latx,y-1)2>0 
tatxt1,y)<>0 
lalx,y+ri)<>o 
laix+1,y)<>0 


TO 1120 


z GOSUB 1900, 


AND latx,y-1)<>0 AND ER THEN 2=8:B0T0O 1810 
AND la(x,y+1)<>O THEN z=7:6070 1610 

AND lalx,y-1)<>0 THEN z=4:B50T0 1610 

THEN z=5:60T0 1810 

AND latx,y+1}3<>0 THEN z=4:60T0 1610 

THEN z=3:60T0 1610 

THEN z=2:60T0 1610 ELSE z2=1:50T0 1610 

1950 , 2020 ,2080 ,2170 , 2230 , 2320 ,23970 


a m am mn a Dr wa EL BR ram a a de EHE 


latx,y+1)<>0 
latx1,y)S>0 
latz,„y+ti}<>o 
latk+i,y)<’o 
laix,yt1}<s>O 
latx-1,y)<>0 
latx,ytr1l)<@>o 


z GOSUR 1700, 


TO 1120 


AND lalx-1,y)i>O AND latx+1,y){>0 THEN z=B:60T0 1730 
AND latx+1,y?<>0 THEN z=7: GOTO 1730 

AND latx+1,y)3<>0 THEN z=4:G0OTD 1730 

THEN z=5:60T0 1730 

AND latx-1,y)<>0 THEN z=4:50T0 1729 

THEN z=>3:60T0 1730 

THEN z=2:6DT0 1730 ELSE z=1:60DT9 1730 

1750 , 2020 ,2080,2170, 2230, 2320 ,2390 


Hrn A hp ME ar En a A EA A A 


latx-1,y)9<>O 
latix,y-1)<>oO 
latx-1,y)<>o 
latx,ytl)<>O 
latx-1,y)<>0 
latx,y-1)%>0 
lalx-1,y)<>0 


z GOSUS 1900, 


GOTD 1120 


# 


[1 


FLOT 
FLOT 
FLOT 


AND 1alx,y-1)<>0 AND latlx,y+1)<>0 THEN z=B: GOTO 1850 
AND laix,y+1)<>0 THEN z=7:60T0 1850 

AND laix,y+1)<>O THEN z=6:60T0 1850 . 

THEN z=5:60T0 1850 

AND laix,y-1)<>0 THEN z=4:60T0 1850 

THEN z=3:8070 1850 

THEN z=2:G60T0 1850 ELSE z=1:5070 1850 


1950, 2020 „2080, 2170 , 2230 , 2320 ,2390 


me. Deren Aral Pa Den man ma Amen ua u ae oe, ra me eb ee A m a en re 


>> DRAW-Routine - 1 <s 


RETURN - 


[3 


FLOT 
PLOT 
PLOT 
PLOT 
PLOT 


>> 


RETURN 


210,280,1:DRAWR 200,0: DRAWR OD, 
210,780,1:DRAWN 10, 370: PLOT 410 »280,1:DRAW 630,570 
210, 130,1: DRAW 10,930: BED 410, 130, 1: DRAW 530,40 


DRAW-Routine = 
260,250, 1:DRAWR 100,0: DRAWR 0,-90: DRAUR -100,0:DRAWR 0,70 
260,260: DRAR 260,170; PLOT 280,240: DRAW 
Z&D,280:DRAW 10,370: PLOT 350,240: DRAW 550,370 
260,170: DRAW 10,40: FLOT 380, 
140,210: DRAW 140,110:FLDOT 480,310: DRAW 480,115 


-150: DRAWR -200,0:DRAKRR 0,150 


2 


<£ 
260,170 


170: DRAW 430,40 


Sompube mik e 
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2020 
2030 
2040 


2050: 


2050 
2070 
Z0B0 
2070 
2100 
2110 
2120 
21530 
2140 
2150 
2150 
2170 
2180 
2190 
2200 
2210 
2220 
2250 
2240 
. 2250 
2280 
=270 
2280 
2290 
2300 
2310 
2220 
2330 
2340 
2250 
ZI60 
2370 
2390 
2390 
2400 
2410 
2420 
2430 
2430 
2450 
2450 
2470 
2480 
2470 
2500 
2510 
2520 
2530 
2540 
2550 
2550 


>> DRAW-Routine — 3 «& 
FLOT 246,280,1:DRAWR 200,0:DRAWR 0,-120,0:DRAWR -200,0,1:DRAUR Ü, 120° 
FLOT 240,280,1:DRAW 10 ‚370: PLOT 240,160: DRAW 10,40 
PLOT 440.315: DRAW 630,370: PLOT 440,125: DRAW 630,40 
PLOT 440,315:DRAW 440,125:PLOT 120,325:DRAW 170,100 
RETURN 
">> DRAW-Routine — 4 << 
PLOT 270,2580,1:DRAWR 80,0:DRAWR 0,-70:DRAWR -BO,0:DRAWR 0,70 
PLOT 270,250: DRAW 350, 190: FLOT 350, 250: DRAW 270,170 
FLOT 270,260: DRAW 10 „370: PLOT 270,190:DRAW 10, 40 
FLOT 400,280; DRAWR 120, Ü: DRAWR %,-110,03DRAWR -120,0,1:DRAWR 0, 110 
PLOT 400 , 280: DRAW 350,250: FLOT 400,170: DRAW 350,190 
FLOT 520,3515:DRAW 530,370:PLOT 520,1725:DRAW 630.40 
PLOT 520,315:DRAW 520,125:FL0T 120,320:DRAW 120,105 
RETURN 
">> DRAW-Routine — 5 «“< 


PLOT 200,280,1:DRAWR 200,0:DRAWR O,-120:DRAWR -200,0 


FLOT 400,280:DRAW 630,370:PLOT 400,150:DRAW 630,40 

FLOT 200,315:DRAW 10,370:PLOT 200,125:DRAW 10,40 

PLOT 200,5315:DRAW 200,125:FPLOT 520,325: DRAW 520,100 

RETURN 

NE DRAW-Routine - & <i 

PLOT 270,260,1:DRAWR 80,0:DRAWR O,-70: DRAWR -B0,0:DRAWR 0,70 
FLOT 290,240: DRAW 370, 190: PLOT 370 ,250:DRAW 290,190 

PLOT 379,250:DRAW 630,370:PLOT 370,190: DRAW 630,40 

PLOT 120 , 280: DRAWR 120,0: DRAWR 0,-110:DRAWR -120,0 

PLOT 240,280:DRAW 290,250: PLOT 240,170:DRAW 290,190 

PLOT 120,315: DRAW 10,370:PLOT 120,125:DRAW 10,40 

FLOT 120,315:DRAW 120,125:FLOT 520,320:DRAW 520,105 

RETURN 

“ #> DRAW-Routine - 7 << 

PLOT 150,300,1:DRAW 480,300: FLOT 1650,140:DRAW 450,140 

PLOT 180,335: DRAW 10,370:PLDT 480,335:DRAW 630,370 

PLOT 180,105: DRAW. 10,40:PLOT 480,105:DRAW 430,40 

PLOT 160,335: DRAW 160, i05:FLOT ur Eon 450,105 

PLOT 320,300: DRAW 320,140 

RETURN 

">> DRAW-Routine — 8 << 

PLOT 280,280,1:DRAWR 80,0:DRAWR 0,-70:DRAWR -8BO ,O:DRAWR 0,70 
PLOT 280,260: DRAW 360,190:PLUÜT 360,240:DRAW 280,190 

FLOT 420,280: DRAWR 120, O: DRAWR 0,-110, Or DRAUR -120, O,1:DRAWR 0,110 
FLOT 100,280: DRAWR 120,0: DRAWR 0,-110:DRAWR -120,0 

PLOT 420,280:DRAW 350, 260: ‚PLOT 420, 170:DRAW 360, 150 

FLOT 220,280: DRAW 280,260:PLDOT 220,170:DRAW 280,190 


PLOT 100,320:DRAW 10, 370: FLOT 540, 320: DRAN 430 „370 


PLOT 100,120: DRAW 10,40: PLOT 540, 120; DRAW 5430, 40 
PLOT 100,320: DRAW 100, 120: PLOT s40, SZ0:DRAW 540,120 
RETURN 


ET ne ne a nn m ren Da BI nn m A a a er er 


® 


MODE 1: BORDER O= INK 0,14: INK 1,0:INK 2,12:PAPER 1:PEN 0:CL8 

LOCATE 13,1: PRINT CHR$ (24); "Bitte warten... ";CHR$ (24) 

FOR j=1 TO 25:FOR i=1 TO 40 ; 

IF 1a(i,j)=1 THEN LOCATE i,j:PAPER O:PRINT” "=SOUND 2,INT{RND*500) ,3,5 
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2570 IF mant(i,j)=i THEN LOCATE i,i:FAFER ZIFEN 1:PRINT CHR# (250) 

2590 IF lali,j)=2 THEN LOCATE i1,j:PAPER 2:EFEN O:PRINT"S":SOUND 2,160,60,0,1 

2590 IF lafi,j}=F THEN LOCATE i,j:PAPER 2:PEN 0: PRINT" Z": SOUND 2,80,89,0,1 

2,40,25 
5 7 7 


2600 IF iex AND ji=y THEN LOBATE 1,j:FAPER 2:PEN Ö5PRINT CHR$ (248) : SDLIND 


5,1:50UND 7,30,20,6 
2610 
2620 
2630 
2640 
2650 
2660 
2670 


IF ri=1 THEN 
IF ri=2 THEN 
IF ri=3 THEN 
IF ri=4 THEN 


1070 ELSE 2590 


2680 LOCATE &,1:PRINT"Weiter mit [COPY] or IFIREI..." 
2690 IF INKEY(9)=0 OR JOYtO)=15 THEN 

2700 ° 

2710 * Start 

2720 ° 

2730 LOCATE 15,4:PRINT"Pech gehabt“ 





Am 28. und 29. September 1985 führt die 
COMPI-CLUB-ZENTRALE ihr erstes gro- 


Bes Clubtreffen auf Bundesebene durch. 
Dieses Treffen soll einem Messecharakter 
_ entsprechen und deshalb sind alle CPC- 
Freunde und Anbieter für Schneiderpro- 
dukte herzlich eingeladen. Die Organisa- 


FRINT CHR# (24); "Press any key to play" zCHR# (24) 


2730 LOCATE 15,5:PRINT"ist nur der... ";CHRE(24) 
2750 

2750 LDEATE 14,13: PRINT"——- 

PT Wenn 

2790 * Crash mit Wand 

27IO ' mn 

‚2800 FOR i=1 TO 31:50UND 4,0,1,15,0 „Osi:NEXT 
2810 IF r=1 THEN ri=ri 

28720 IF r=2 THEN ri=ri-—? 

2830 IF r=3 THEN ri=ri- 

28406 IF r=4 THEN ri>-ri+i 

>850 IF ri=0 THEN ri=4 

2850 ri=t{fri-1) MOD 4+i)} 

‚2870 r=1:560T0 1140 

: 2980 7 mem 

2890 ° ZIEL 

.2900 ° mm 

2910 

2920 FEN 2:LOCATE 16, il: PRINT CHR$(24)3; SPACES (9) 
2930 LOCATE 14,12: PRINT" 

29740 

2950 

.2950 NEXT iz:BORDER O:INK 2,5:PEN 3:LBCATE 10,25 
29770 

2980 FOR i=0 TO SO: in$=INKEY$: in$e"":NEXT 

29790 IF INKEYS$F="" THEN 2990 ELSE RUN 

ZO0OD ° mn 

3010’ = ENDE + 

ZU20 ° mm 


toren erhoffen sich eine rege Beteiligung 
sowohl von den eigenen Mitgliedern als 
auch aus dem Bereich von Handel und In- 
dustrie. Durch diese Art des Erfahrungs- 
austausches dürfte wohl eine gute Gele- 
genheit für alle GPC-Anwender sein, in- 
tensive Kontakte und Beziehungen zu 
knüpfen. 

Der Beginn der Veranstaltung wird am 


IF {INKEY(P}=0 DR JOYtO)=14) THEN ?&20 ELSE NEXT i,j 
BORDER 14:PAPER 1;:PEN 2 
richt$="Norden”"szeig>=200 
richt$="Osten":zeig=202 
richt$="Sueden":zeig=2Z01 
richt$="Westen":zeig=203 
LOCATE 11,255PRINT"Richtung >> "zricht$;" ";CHRFE (Zeig) 


LOCATE 16,11:PRINT SPACE$ (9) z5LOCATE 16,12:PRINT"S TAR T" 
-- *» CHR$ (24) s RETURN 


BORDER &,0: INK 0,0: INK 1, 24: INK 2,0, & INK 3,12:5PEED INK 5,5 


ZIEL ":LOCATE 16,15 PRINT" 
PRINT CHR$(24) :LOCATE 20,22:PRINT CHR$(200):FÜR i=1 TO 3 
SOUND 2,239,25,7:50UND 2,190,25,7:50UND 2,159,25,7:S0UND 2,119,70,7 


Samstag den 28. 9.85 um 14.00 Uhr sein. 
Am Sonntag den 29.9.85 werden sich 
dann die Pforten ab 17.00 Uhr für alle Inte- 


ressierten öffnen. Übrigens wer noch ei- 


nen Standplatz für die Messe benötigt 

kann sich jederzeit mit der Organisationin 
Verbindung setzen. Auch alle anderen 
auftretenden Fragen werden gern unter 
der Tel.-Nr.: 022 96 /17 05 beantwortet. 
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Gompute mit 


report 


- Die Schneider Computer Division stellt den neuen „ec B128° vor 





Nachdem jabereits einige namhafte Hard- 
ware-Hersteller den Homecomputer- 
Markt mit Neuvorstellungen überrascht 
haben, gibt es jetzt auch von Schneider ei- 
nen 128K Computer. Somit bietet Schnei- 


| der allen Gomputerfans die Möglichkeit, 


50 


noch effektiver im Home- und Personal- 
computerbereich zu arbeiten. Da bei 
Druckschluß noch nicht alle wichtigen 
und notwendigen Informationen vorlagen, 
finden Sie in diesem Heft nur eine kurze 
Übersicht über den Lieferumfang und ei- 
nige technische Daten. Wir werden aber in 
der nächsten Ausgabe eine komplette 
Vorstellung des Neuen „CPC 6128“ vor- 
nehmen. Vorab schon einige wichtige In- 
formationen. Ausgestattet ist das jüngste 
Kind aus dem Hause Schneider 


Stark reduzierte Computerbücher 
aus Remissionen 

Spaß mit Basic, 8. Aufl, 

Das erfolgreiche Basic-Lehrbuch 

statt DM 29.90:nur DM 10,- 

Spaß mit BAHIG für Anwender 

Nützliche, nicht maschinenabhängige Programme 

statt DM 26,- nur DM 9,- 

Spaß mit Basio für Profig 

Programme aus der Praxis, nicht maschinerabhängig 

statt DM 26,- nur DM 9,- 

Computer für jedermann ZX 81 + Spectrum 

statt DM 32,- nur DM 11,- 

Basic mit Pfiff 

Eine Fülle von Programmbeispielen und -tricks 

statt DM 32,- ur DM 1%,- 

PET/GBM Spaß und 

Uber 30 herausragende Spiele 


- miteiner Z80 CPU,dies ist der meistver- 
wandte Prozessor in der Mikrocompu- 
terklasse 


— mit einem 128 K RAM Arbeitsspeicher,- 
wovon über 100 KB frei verfügbar sind, 


- miteiner echten Schreihmaschinentastatur 
und 32 freipregrammierbaren Funktionsta- 
sien, 


— mit einem integrierten Diskettenlaufwerk, 


— miteinem wahlweise lieferbaren Grün-sder 
Farhmonitor, 


— sowie über-eine Vielzahl von externen 
Anschlüssen und einer enermen Ausbau- 
möglichkeit. 


Natürlich gibt es noch weitere Eigenschaf- 
ten und Möglichkeiten, den „GPC 6128" 
profimäßig einzusetzen, aber leider kön- 
nen wir z.Z. noch nicht genauer berichten. 


Jeder der sich entschließt, in der nächsten 
Zeit einen Home- oder Personalcomputer 
anzuschaffen, sollte auf die nächste Aus- 
gabe warten und dort die weiteren Infor- 
mationen über dieses neue System nach- 
lesen. Ohne bereits Vorschußlorbeeren zu 
verteilen, kann man sagen, daß es der Fir- 
ma Schneider auch auf dem Sektor der 
128K-Systeme gelungen ist, ein recht in- 
teressantes Gerät vorzustellen. Vielleicht 
gelingt es mit diesem System, ähnlich gu- 
te Erfolge wie mit dem „CPC 464“ oder 
„PC 664° zu erzielen. 


Anleitung jetzt auch in deutsch 


Ob Apple, Atari, Commodore oder IBM - das meistverkaufte Heimcomputerprogramm 


* 
% 
% 
%* 
% 
%* 
% 
% 
% 
%* 
% 
* 


statt DM 34,- nur OM 10,- 


3180 Minuten zu 
statt DM 21,80 nurDMB,- 
programmieren 

Statt DM 24,80 nur DM 9,- 
Basis leicht gelernt 
statt DM 26, - nurDM 10,- 
Der perfekta Führer zu Ihrem IBM Compuber 
Statt DM 34,- nur DM 14,- 
BASIC SOFTWARE BIBLIOTHEK 
Nicht maschinenbezogene, nützliche Programme 
Bd. 1-4, statt DM 18,- nur DMB,- je Bd. 
zusammen DM 30,— 
BASIC larnen am praktischeit 
Programme für den Hausgebrauch 
statt DM 34,- nur DM 14,- 

fürden VE 29 
a statt DM 21.80 nur DM 19,— 
Spielspail für den vo 
30 außergewöhnliche Spiele 
statt DM 21,80 nur DM 19,- 
Spielspaß für den CBM 
über 30 tolle Spieta 
statt DM 34.- nur DM 10,- 
Tomi son für Einsteiger 
statt DM 29,80 nur DM 19,- 


Nur solange Vorat reicht. Kaufen Sie jetzt günstige 
Weihnac! jenke, Lieferung per Vorrschnungs- 
‚scheck oder Nachnahme. 


in MBAHE 1 


Bestellungen richten Sie an: 
HAPA Buchtianst 
Brucker Straße 46-6031 Gilching 


SELSELEITT 


+ 


ist der „Flight Simulator II“ von Sublogic/Microsoft, mit dem man realitätsnah auf 80 
Fiugplätzen starten und landen kann. Geflogen wird damit nicht nur zuhause im Wohn- 
zimmer, auch auf Messen und in Büros sieht man immer wieder den typischen Screen 
mit dem Armaturenbrett der Sportmaschine vom Typ Piper „Archer“, Der Bildschirm- 
Bestseller hatte bisher einen einzigen Nachteil: Um die unwahrscheinlich vielen Mög- 
lichkeiten - zum Beispiel Funknavigation oder Verändern der Wettervariabten oder 
Kunstflug - wirklich nutzen zu können, mußte man schon sehr gut in Englisch sein. Für 
alle die vielen, die damit nicht hundertprozentig zurechtkamen, hat „Softline“ ein deut- 
sches Handbuch herausgebracht. Titel: „Fliegen mit dem Heimcomputer - Tips und Hilfen für 
das Training mit dem Flight Simulator II“. Autor ist der bekannte Luftfahrt-Journalist E.U. Ad- 
ler, der für große Zeitschriften und Zeitungen schreibt und begeisterter Bildschirmflie- 
ger ist. Ihm istes gelungen, alte fliegertechnischen Fragen wie auch alle Sprachproble- 
me für neue wie.altgediente Computer-Piloten verständlich zu machen. Also: Fertigma- 
chen zum Start. Mit dem deutschen Handbuch von „Softline“ macht das Fliegen. erst 
richtig Spaß. 


Mehr Informationen bei: 
Softline, Schwarzwaldstr. 8a, 7602 Oberkirch 
Telefon: 07802-3707 
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_ report. 


Das Standard Basic-Buch zum Schneider GPE 464 





Das Ziel dieses Buches liegt darin, dem 
Leser einen Einstieg in die Arbeitsweise 
der Programmiersprache BASIG zu er- 
möglichen. Hier soll allen Heimcompuler- 
Programmierern auf leicht verständliche 
Art die ganze Palette des Programmierens 
mit Hilfe von methodisch strukturierten 
Grundlagen zugänglich gernacht werden. 
Der Leser hat die Möglichkeit, die Kreativi- 
tät bei der Entwicklung seiner Programme 


einzusetzen und selbst Ideen zu verwirkli- 
chen. So entstehen also Freiräume für Er- 
kenninisse des Programmierens, die SO- 
fort anhand von Beispielen erklärt werden 
und somit direkt in das selbstentwickelte 
Programm einfließen können. Somit wer- 
den Kenntnisse vermittelt, die nicht nur 
durch „Abtippen“ und „Laden“ vermittelt 
werden. Trotzdem bietet das Buch aber 
auch fertige Programmlösungen für Pro- 


mit dem SUPER-SERVIGE KOMBI-ABO 
kann ich ja irre viel Geld sparen??? 
Da renne ich doch gleich zur Post und sende den 
Abo-Schein sofort an: Tronic-Verlag GmbH 
Postfach 41 
3444 Wehretal 


Super-Service 


Kombi-Abo 
„Compute mit... 


" Name/Vorname 


Straße/Nr. 


Ich wünsche folgendes ABO: 


I ] 12 Exemplare „Gompute mit .. 
zum Preis von 


[] Commodore 


12 Exemplare „Compute mit .. 
zum Preis von 


[_} Commodore 
12 Exemplare EN mit. 
zum Preis von 
gegen 

FE] Rechnung 


Bitte ausschneiden 
und senden an: 
Tronic-Verlag GmbH 
Postfach 41 

3444 Wehretal 


Bu 


Bi 


[_] Vorkasse 


Abonnement-Kündigungen: 


F] Schneider 


“ + 12 bespielte Diskeiten 
187,50 DM (Commodore) 


[] Schneider 
“* ohne bespielte Kassetten 


blemsteliungen an. 

Das Buch zeichnet sich durch die recht 
zahlreichen Beispielprogramme aus. Ein- 
ziges Manko: Einige Listen und Texte wur- 
den aus dem Original-Schneider-Hand- 
buch ohne entsprechende Korrekturen 
falsch übernommen. 


Heim-Verlag, Darmstadt, ISBN 3-923250-12-6, 
Preis 68,- DM 


“ + 12 bespielte Kassetten 


97,50 DM (Ausland 110,- DM) 
264,50 DM (Schneider) 


30,- DM {Ausland 40,- DM) 


Datum, Unterschrift 


6 Wochen vor Ablauf des Jahresabonnements, Außerdem kann ich diese Besteltung innerhalb von 10 Tagen beim Verlag widerrufen! Zur Wahrung der Frist genügt 


die rechtzeitige Absendung des Widerrufes. 


Abo-Beginn ab Hft:_____ 
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Datum, Unterschrift 





ol 


werkstatt 


Single Disk 


Das hier vorgestellte Anwendungspro- 
gramm erlaubt eine schnelle Verviel- 
fältigung von Disketten. Mit Hilfe dieser 
Routine lassen sich 1 bis maximal 50 
Kopien erstellen, wobei die Anzahl der 
Diskettenwechsel äußerst gering ist. 





18 

2° %* Tronic Soft # 
DT * 
44" » Single Disc-Bacrkup # 
SB 7 OE---- -memnn 
(17 ' Copyright bei * 
Tat. Frank Brail # 
BETONEN ER ENHETTER 





FRRRUEANFETERHHERER RN GENE 


DPENDUT "dummy": MEMORY HIMEM-1: CLDOSEOUT 





Nach dem Start durch den Befehl „RUN“ 
wird man nach der Anzahl der zu kopie- 
renden Disketten gefragt, AnlieBend wer- 
den Sie aufgefordert, die erste unforma- 
tierte Diskette einzulegen. 

In einem superschnelien Verfahren be- 
ginntnun die Formatierung der 
Disketten. Danach werden die 
ersten 8 Tracks (Spuren) der 
Originat-Diskette eingelesen 








FAPER ABS{i/2):PRINT STRING$ (29,372)3 


128 

iid MEMORY RIFFF 

122 GOSUB 768 

139 5DISCHMODE S:ICLS:BORDER 8 
1438 CALL &BR4SE 

i5@ FOR i =1 TO 25 

ia 

17@ NEXT i 

182 


1978 
208 
216 
220 
za 
248 
sg 
zu 
ER 
229 
rg 
Sa 
318 
Ze 
BR 
4 
Bier 


FEN 2: LOCATE 4,7 


IF anz<i OR anz 
GOTD 524 


sao=d 
GOSUB 518 
bu=&E 


RT 

Aa 

37@ NEXT:NEXT 

288 FOR nu=1 TO anz 
FA Ser 4a 

aaa =LE 

a1 





52. 


Es sp=spo TOD Spot7: FOR se=8 108 


FÜR y=& TOD 11:PAPER @:PEN 1:LOCATE 1,y:PRINT eun. 
LOCATE 2,8: PRINT"Single Disc-BRackup" 
:FRINT"(c) bei Frank Brali"” 
MOVE 9,27 DRAW 638,2, 1:DRAN 678,400: DRAW 9,408: DRAW A, 
CALL SPRA&: MODE 1:INK 2,6 

ELS;PEN 23 PRINT:PRINT" Single Disc- —-Backun 
PRINT STRING$ (48, CHR$ (1549933 

MOVE 2,@E DRAW 638,9, 1:DRAW 638,398:DRAW 9,278: DRAW 9,8 
LOCATE 3,6: INPUT "Anzahl der Kopien "janz 
-S@ THEN FAR 


REM *t+* original einlesen x## 


FOR sp=spo TO spo+t7:FOR se=8 TO 8 _ 
PEN 1:LOCATE 2,24: PRINT"Spur "sp, "Sektor "serbu=sbu+? 
FORE &AR272,EO4:FOKE LAGZS,S 
FOKE &AB25, Sp: FOEE 2AA24, Se+PEEK (KABIP): ECALL BARRSIPOKE AAGES, Bi:tAll %& 


Compups mi 





ic) 


BACKUP für Schneider crc 464 


und auf alle zu kopierenden Disketten 
übertragen. Ist dies geschehen, werden 
gie nächsten 8 Tracks gelesen und über- 
tragen. 

Nach 5-maligem Einlegen der Original- 
Diskette sind alle Tracks gelesen worden, 
Dieses Programm ermöglicht Ihnen, Ihre 
Kopien wesentlich schneller und einfa- 
cher herzustellen, als dies über das CP/M 
Programm „Disccopy“ möglich ist. 





"NEXT y 


F.Brall" 
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425 FEN 1:LOCATE Z, 24: FRINT"Spur"sp, "Sektor "seibusbut2 


479 FOKE EABSZ, buiCAllL &A959; FOKE UADZB, LBS :POKE LAP26,@:PFOKE SA@2S, sp: FOKE 
KAB?4, se+tFPEEE IRABYFI:CALL BADER 

444 NEXTINEXT 

458 NEXT nu 

463 spo=spo+tß: IF spo>32 THEN RUN 

4793 GOTO 218 

485 PEN 2:LOCATE 3,19: PRINT"Copy Disk Nummer "nu" einlegen !"5 


428 LOCATE 2, 32: PRINT" --- Taste druecken ---"5 

5594 SOUND 1,39, 59: CALL %EERS&G: RETURN 

S1A FEM Z2L0CATE 2,18 FRINT"ORIGINAL Diskette einlegen ! vn 
S2# GOTO 4974 

ga ” 


S4# ° Formatier-routine 
harter u 
SARA DATA Re, 09 AI2 2 RER Ta, HET, 80, 957,232, 239,309, 357,%32,%21,2898 
B7E DATA AAf, 221,239,200, %cd# ,%32, 200, 8I2,87, 200, 62,427, LoB,»3c,u 32,224 
584 DATA 289,221, 339,209, 506,507, U77,323, BPEHTF,RBZIER AIR EFT IB ac, 7 
378 DATA RE, 241,252, &c6,&97 
AS FOR nu=i1 TO anz 
18 RESTORE SSHtFOR ı1=-t0Aca TO LB2I4 
Ad READ di: FOKE i,.d 
Sa NEXT i 
LAG y-kliın=i8235 
&358 FOR i=1 TC 7 
ShB FOKE x,MIPOKE xt1,9: POKE xt2,y:PÜKE +3,22 
GB zex+d 
588 yzy+2ı IF ty AND RFI=SkR THEN yay-? 
&I2 NEXT 
7323 GOSUB 489 
718 PEN 2:LOCATE 3,2: PRINT"Schnell Forsetierung (Data-Only})" 
728 CALL B2aR 
7238 LOCATE 2,22: PRINT" ö = 
738 NEXT nu 
722 GUOTG 272 
768 RESTORE BAGSFOR i=kASAB TO LARIB: READ as: PüuKE yneeilseı NEXT 
778 REM : 
788 REM Diskettenroutinen 
778 REM 
893 DATA 21,28,92,00,04, BC, 79,32, 23,99, 22, 21,A9,21,24,98 
gs1l2 DATA 4&, 23, 56, 23, SE, 21,28, A1l,DF, 21,92, 07,29, 09,20, DR 
828 DATA 84,09, 09,00, 08,99,62,FF,22,09, 09, 0098,29, 00,92, 00 
8352 DATA 21,29, 12,11,08,99, 36,16, CD,A1, BC, 08,32, 27,98,C7 
848 DATA 21,29,12,11,92, 99, 3E, 16, CD, 9E, BC, 09, 32, 27,99,C09 
852 DATA 271,29,19,11,99,91,91, 09,07, ED, B9,C09, 28,29, 02,88 
848 DATA 21,29,A1,11,29, 12,21, 29,#2#2,ED, B8,C9, 99,99, 09, 09 
874 DATA 21,50, 29, 3E,9A,CD,68,RC,09,09, 99,092, 09,09,09, 08 
889 DATA 21,28,29,11,99,9%1,91, 99,92, 7E,EB, BE, 28, 98,23,13 
87@ DATA 28, 78,B1,C8,19,F73,3E,04,32,27,A9,C07 
939 RETURN 


Die Eingabe des Programmes ist geschafft! 


Versuchen Sie nun bitte das Programm zu starten. Legen Sie eine zu kopierende Diskette ein und überzeugen sie sich von der Schnelligkeit 
und der Einfachheit dieses Programmes. 
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Programme 





für Schneider CPG 464 





Ein Geschicklichkeitsspiel für zwei Personen 





Ziel des Spieles istes, eine größtmögliche 
Punktzahl zu erreichen, um so den Mit- 
spieler zu besiegen. Bevor Sie dies jedoch 
erreichen, müssen. Sie schon einiges an 
Strategie und Einfaltsreichtum aufbrin- 
gen. Spieler 1 punktet, indem er den Le- 
bensborn (das Omega) erreicht. Der Ge- 
genspieler oder Spieler 2 erhält Punkte, in- 
dem er seinen Mitspieler fängt. 


.%* 
4% 
x: 
x: 
+ 
+ 


SONDIALMA 


# mm mar mm ann mia gen Mon A mon Me Nm MIN TE PB rn Ar Er ker 
ZSZZZ2e TE mm Zaun zazne 


10 
20 
29 
20 
je; 
nie) 
50 
57 
[= 18) 
70 
50 
70 


GOSUE 840: IF runde:? 
GOSUR 470: a=0: 5BOTD 3ö 


100 
107 
110 
120 
130 
140 
150 
160 
170 
177 
180 
190 
200 
2097 
z10 
220 
1,3 


SYMBOL AFTER 190 
SYMBOL 190,255, 
SYMBOL 

SYMBOL 
SYMBOL 
SYMBOL 


MODE 1:50SUB 110:runde=ü 


BOSUR 470:G0D5UB 210: GDOSUR 
WEND:LOGATE #1,y1:PRINT " "3LOCATE »2,y2:PRINT " ":CL53#1 


Durch Berührung des mittleren Omegas 
erhalten beide Spieler „Heips“(Hilfsmit- 
tel), die sie gegeneinander einsetzen kön- 
nen. Spieler 1 hat die Möglichkeit, durch 
die Helps Hindernisse zu setzen und somit 
den Weg vor seinem Verfolger zu versper- 
ren. Dadurch erhält er einen kurzen Vor- 
Sprung, 

Der Mitspieler kann durch seine Helps die 


EACH TER HH 
fuer Schneider CFE 464 
von Bernard Mnrel?! 
Initialisierung 


Hauptprogr amm 


#50: 50SUB 200: BOSUR 350 


Funkteauswertung 


IF a=1 THEN pt=p1+1:FRINT#1,"1 Punkt fuer Player 1" 
IF a=2 THEN p2=p2+1:FRINT#1,"1 Punkt fuer Flayer 7?" 
THEN GOSUR 880 


Farbinitialisierung 


INK 0,26: INK 1,7: INK 2,3:INK 3,0: BORDER 3: RETURN 


Symbole 


129,129,129,179,129,129,255 
194,255,0,0,255,16,16,16,237 
195,187,68,68,199,4,4,4,251 
196,247,8,3,255,225,33,33, 2272 


200,108,145,146,69,161,138,100,2 


Beschriftung 


WINDOW #1,1,40,24 ,25: FAPER#1,Z:FEN#1 ,2:C0L5#1 
FRINT#1, "Punkte Flayer 1: 


Flayer 2:2" 


Joyabfrage Player i 


anl=x1r{tINKEY (74) >-1)- INKEY (75) 5-1) 
yvni=yi-(INKEY(C7IIS-II FH CINKEY (723 >13}: IF x1<beni 


Gompube mi | 


m ae da en Se TTS rn To en re m mr u ren rum nor 


Hindernisse wieder aus dem Weg räumen | 
und die Verfolgung des Spielers 1 aufneh- | 
men. | 
Der Spielfluß erfolgt in einem fest vorge- 
gebenen Bereich und deshalb ist etwas 
Aufmerksamkeit und Denkvermögen ge- 
fordert, um seine Gewinnchancen zu wah- 
ren. Beide Spieler können mit dem Joy- 
stick spielen. 


; KREIEREN EHEN 


4% 
*+ 
#*#% 
#*# 
*# 
“= 


Me 2 305 2202 2 202 02 2 2 20202 SZ 2 2 22 02 SE 2 72 5212 202 2 2752727 27272202202 227202227222 2272 2 222 52 2 22 E22 2212722202 


ZZEUoemenceomennunozmzonn 


SOSUR 180: x1=Zrunl=2: yl=2:yni=e2:n2=20: xn2=20: y2=1%: yn?=13ıhl=ä:ıhni=Z:WHILE a= 


FrTZIZZEIZImmmonmzaemzmzzzuonn 


zum. m m | —— 


Dr yixıynl THEN SOUND 2,1500 
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230 hnni=hi+ tINKEYt7A) >41); IF hni2ö THEN hni=o 

740 RETURN 

249 '"z,zuzsesmmlmoosommmsssnn Joyabfrage P1 ayer 2 zz zzanaezmmm mm mm mm mn 
350 znz=r +1 INKEY (50) 5-1) - (INKEY (SI) >—-1) ; 

260 yn2=y2-(INKEY (49) >-1) + CINKEY{4BI 5-13 zIF x2<>«n2 DR y2<>yn2 THEN SOUND 1,1000 


‚1,5 

270 hn2=h2+1{1INKEY (52) >-1)5IF hn2<0 THEN hn2=0 

280 RETURN 

289 "zZ Zum zz Heil pl adegeraseusch zsz=z=zzom mem zsSsscgmmmmanonnne 
230 FOR i=1 TO 1000 STEF 100:50UND 1,1010-1,2,13:NEXT i:RETURN 

399 '"zmmeernmzmesssemszzem=m=m= Bewegung Player i zum aemasmszammammmemgsmssanmzme 


300 IF xn1=21 AND yn1=13 THEN hi=3exni=x1:yni=y1:60SUB 270: RETURN 

310 IF xn1=27 AND yni=15 THEN a=1:RETURN 

320 IF TEST (xni1#16-3,403-1&6*yn1)=0 AND TEST (xn1#16-1,401-16%*yn1)=53 THEN xnl=xnit 
i5# txni1-x1)}r6OSUB 430: RETURN ; 

=30 IF TESTixni*#14-8,410-16*yn1)=2 DR TEST txn1*16-B,410-1&8yn1)=5 THEN xni=«1:yn 
1=y1:RETURN 

340 IF TEST(xn1#16-1,401-1&*yn1})=0 THEN SOSUB 430: RETURN 

3530 RETURN 

A554 "mzmoszssemmsmzzzmmsen sn Bewegung Player = zz m mu mem mn ze samen 
360 IF xn2=21 AND yn?2=13 THEN h2=$:4n?=x2: yn?=y2:60SUB 290: RETURN 

370 IF xn2=xni AND yni=yn2 THEN a=2: RETURN 

zB IF TEST (zn2#16-3,403-16#yn2)=0 AND TEST {xn2#1&4-1,401-16#yn2)3=3 THEN an2=4n?+ 
(5%# (un2-22}):505UB 440: RETURN 

390 IF TEST (xn2#16-1,401-15*yn2)=1 AND h2<>hn2 THEN GBSUB 210: 50SUB 300: BDO5UB 45 
o:h2=hn2: RETURN 

400 IF TEST (xn2#16-8,310-16#yn23=2 DR TEST txn2#16-8,310-16%yn2})=3 THEN zn2=ex2:yn 
Zey2: RETURN 

410 IF TEST (xn2*#16-1,401-16*#yn2)=0 THEN 5BSUB 450: RETURN 

420 RETURN 

479 o s==222esz2mmuumZm2emnn Hinderniss setzen zmeszamssesasmmemzmzm mega nn 
430 LOCATE x1,y1:PAPER O:IF hnis>hl THEN PAPER 1:PRINT" "=PAPER G:hl=hn1; 6070 45 
oO 


440 PRINT" " 

4494 "z=um==22257 2 222enmasmse Player 1 ausgeben zsaseS=Smmemmezsszaneemmnnneoesenmen 
450 LOCATE xni,yni:PEN 3:PRINF CHREEDAB+INT {RND#4) } x 1=xnl: yil=yni1:RETURN 

459] '"===z2Sr2 5 2 TI IS SS ZZ 0 = Flayer 2 ausgeben FZZzz Zn m zum mis saSs2sS72Emmmo— 


450 LOCATE x2,y2sFAPER OrPRINT" "3LDOCATE xn2,ynZ2:PEN 1:PRINT CHRE& I24AB+ INT <RND*#4) 
I 2» 2=exnZ: y2=yn2: RETURN ; 


A697 === 222EZ 2222222 Punkte ausgeben mem emumzmam messen 
470 LOCATE#1 ,17,1:PRINT#1 ,p1:LOCATE#1 ,36,1:PRINT#1,p2 

479 o seraszoemmse==me,msommm=re= Helps ausgeben zze==zmeszmzmzmszesseunenn nme 
480 LOCATE#1 ,7,2:PRINT#1 ,h1: LOCATE#1 „30,2: PRINT#1 ,h2 

4970 RETURN i 

A9G "uaesseemzmmmssoses=== DATA’s Fuer Spielfeld seems zzmzzeruzum m zz 


SOO DATA 1,1g1gly1ylplplplalalgiaiglglglgiginteieinigininininlalainigigigtgiteist 
1,1,%,1 E 

F Li Eu 3 

510 DATA 1,0,0,0,0,0,0,0,0,0,0,1,0,0,0,05,0,05130,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0 
0,1,0,1 j 

——.a—.1.,.1 

520 DATA 1,0,15151,15,1,1,0,0,0,1,0,1,151515,05,15051,0,140,1g1p1a153515152,1,1,0,1 
‚2,1,0,1 

530 DATA 1,0,1,0,0,0,0,1,0,1,0,1,0,1,0,0,0,0,1,0,1,0,0,0,1,0,0,0,0,0,0,0,0,1,0,1 
‚„0,0,0,1 

540 DATA 1,04515,0,1,1,0,0,041,05,1,0415,0,1,1,15,14,041421515151,03151314151515,0,1,90,1 
zil,1,1,1 x 

550 DATA 1,0,1,0,0,141,1,1,1,0,0,0,1,0,0,0,0,0,0,150,0,2,1,0,1,2,0,0,0,0,0,1,0,0. 
0,0,0,1 ; 

7, 3 + £ 

560 DATA 1,0,1,0,0,1,050,041,041,0,0,0,130515131515 051515870517 151534141, Og1 54,1 
s1,1,0,1 5 


Br — | Praenge — oo 


programme 


570 DATA 
,1,0,0,1 
580 DATA 
„1,0,1,1 
590 DATA 
„1,0,0,1 
&00 DATA 
„151,0,1 
510 DATA 
„0,0,0,1 
620 DATA 
1,0,.10,1 
630 DATA 
„1,0,0,1 


840 Data 


96 


140,051 
&50 DATA 
15051,1 
660 DATA 
Asostz1 
670 DATA 
„1,0,0,1 
620 DATA 
151,051 
890 DATA 
»0,1,0,1 
700 DATA 
„1,1,0,1 
710 DATA 
»0,.0,0,1 
720 DATA 
Fi ED ER | 
729 ' 


zZ ZZzZzZzZzZzZz EZ ZZE Ss 2 zZ m em 


1,0,0,0,0,1,0,1,1,1,0,1,1,1,1,1,0,0,0,0,1,0,0,0,0,0,1,0,0,0,0,0,0,1,0,0 
1,0,1,0,0,1,0,0,2,1,0,1,2,0,0,1,1,41,130,1, 0,151, 051515 1y 19 Ogipty1yis n o 
1,0,1,0,1,1,0,1,1,1,0,1,1,1,0,1,0,0,0,0,0,0,0,1,0,0,0,0,0,0,1,0,0,0,1,0 
1,0,1,0,0,0,04040515,0,1,0,0,0,14Op1 gl y1g141404141515041414051404140,1,0 
1,0,1,1,1,1,141,0,0,0,1,0,1,1,150,1,0,0,0,1,0,0,0,0,0,1,1,03,1,0,1,0,1,0 
1,0,1,0,0,0,0,1,0,15,1,1,0,0,0,0,0,0,0,043,13 0515151 g151y 130215441, 041,1 
156,1,0,1,1,0,1,0,1,0,1,0,1,1,1,0,1,0,0,0,1,0,0,0,0,1,0,0,0,0,0,0,0,1,0 
1,0,1,0,1,0,0,1,0,1,051,0,0,0,1,0,15151,131,0,1,0,0,4,0,1y1y1,141,1,1,0 
1,0,4514150,0,04041,0,1,141,151,040,0,0,0,0,0, 170,0,1,0,0,0,0,050,0,0,0 
1,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,1,0,140,1,0,121,15141515,041, 1,0 414151 
1,15150515141,1,0,1,141504141,1,1,1,0,150,1,0,0,0,0,0,0,0,0,2,1,0,1,2,0 
1,0,0,0,0,0,0,1,0,0,2,1,0,152,0,1,0,0,1,0,0,0,1,05131,151,1,1,1,0,1,1,0 
1,0,1,1,1,0,0,0,0,1,1,1,0,1,1,0,1,0,15,1,0,1,0,1,0,1,0,0,0,1,0,0,0,0,0,0 
1,0,1,0,1,0,1,0,0,1,0,0,0,0,0,0,1,0,1,0,0,0,0,1,0,1,0,1,0,0, 0,141, 1,1z1 
1,0,0,0,1,0,0,0,0,0,0,0,0,1,1,0,0,0,1,0,1,0,0,150,0,0,1,0,0,0,0,0, 0,0,0 


1:15,151,1,3,1,12,3,1,1, 1,1012 1, 115,141 1, 1,1, 121,114 1, 101101015 re! 1 


SZ SE ST ZZ ZZ ZZ zZ EEE I UT zz = 


Spielfeld aufbauen 


730 INK 0,0: INK 1,26: 1NK 2,0:INK 3,0: BORDER 3:RESTORE 500:605UB 810:LOCATE 15 1:F 


EN 3:FÜR 
7a0 
750 
760 
770 
780 
790 
800 
809 
B1O 
820 
830 


“ 


a ee Een m m um ————n 


a msn mn Denen Pan a San a La dal ok Tarr- Po ME er an me am ana 


=-ZzZEZEZZzEZzZz2 I Zzzzzzz em en 


i=1 TO 23#40 


READ zeON z+1 GOSUB 740,770,720,790,800 

SDUND 1,23*8+10-INT (1/5), 1, 15: NEXT i:6OSUB 100: RETURN. 
PRINT " 
PEN 2:PAPER 3:PRINT CHR${194+INT (RND*F)) 53: PEN 3:FAPER OrRETURN 
PRINT CHR#LULFOI 3 RETURN 

PRINT EHR$t191) 3 RETURN 

PEN O: PAPER Z2:FRINT CHR$t191);:PEN 3:PAPER OsRETURN 


"s:RETURN 


ZZ== ZZ Zr FZ2 2 Z2ZEI7 TEE zen 


MORELL praesentiert ' 


LOCATE 5,23:PEN 1:PRINT "MÖRELL praesentiert" 
LOCATE 9,25:PRINT 
RETURN 

837 ° 
. 840 


"CATCH" 


Musi k "ser=e=-=-=2272msmmomeeeammummmenememmnmene 


runde=runde+1:SOUND 1,284,80,15:SDUND 2,5648,80,15:SOUND 3,287,80,15:50UND 1, 


190,15, 15:5DUND 2,379,15,15: SOUND 3,193,15,15:SOUND 1,179,15,15 
850 SOUND 2,358,15,15: SOUND 3,182,15,15: SOUND 1,159,15,153 SOUND 2,319,15,15: 50UN 
D 3,162,15,15 

860 SOUND 1,225,60,15:SDUND 2,451,60,15:SOLND 3,228,60,15:50LND 1,179,50,15:SDUN 
D 2,358,50, 15: SOUND 3,182,50,15:SOLUND 1,253,80,15:SOUND 2, 506,80, 15: SOUND 3,256, 
80,15: SOUND 1,213, 100,15 

870 SOUND 2,426,150,15:SOUND 3,216,100, 15: RETURN 


8797 


886 FOR x=2 TO 39:FOR y=2 TO 22 


SEI 225 7 ZZ ZZ ZZZZzZzS zZ EZ 


zzzzaz za zz zz ze me ea 


Hindernisse ausraeumen 


890 IF TESTIx#15-1,401-14#y)=1 THEN LDOCATE x,yıPRINT " " . 
900 NEXT y,x:runde=0:RETURN 


Compure mi 


10/85 


programme 


gol ” BHRRHEHHHHHHOIHHHEHENE TEEN NIE HEEEEEEENNER REIHE EEE 


For er REM-Zeilen haben keinen Einfluss auf den Programmablauf “. 
903 '*# Himem-fret{"")=5506 [ ohne REM-Zeilen ] ”* 
304 '#% Himem-fre ("")=8409 [L mit REM-Zeilen ] *% 
05 u Dateiname : CATCH Start mit RUN + 


306 ' RRRHHHHIHSIRHIHIRIHHIHHÄHHIRISHISSIHIIHISIHIHHISIISIHTHHIHISHI III HIHI RUN 





„Compute mit” bietet Ihnen einen besonderen 
DDR N) Leckerbissen: 


Y 

Mini Gar Race 
ist ein Mini-Spielprogramm für den 
Schneider GPG 464. 


i0O "mini car race  D5D95 KUERZESTE ECFC 5P 

IEL AUS DEM HAUSE TRONIE 

11 "by AlLWIN ERTL 

12 ENY 4, 1,15,20,19,-1,32:R0DE 1:INK 0,0 
:PRPER 0%: BORDER Ge INK 1.4: INK 2,25:1INK 3 
„21: 0615: 5YMBOL 754,801 ,%&31, 230,830 236, 

ED,„&FF ,&45: RANDOMIZE 

13 CLS:P=100: 7=50: X=15: PEN ZrFOR I=1 TO 

25: PRINT TABCKISCHRE 143: SPACER (LOS CHR 

#t1A3):NEXT I:sWX=-20: LOCATE WX,1:PEN 1: Pr 
INT CHR& (254) 

14 Z=ZI-1:1IF Z<l THEN Z=1 

15 FÜR I=1 TO Z:50UND 2,500+Z7#10,1,15-1Z 

\93,0,0,3:NEXT I:50UND 2,200+Z7#20,17,15- 
(Z/8) ,0,0,# 

15 LOCATE WX „I: PRINT" ":T£=INKEYF: IF TF- 
#»s THEN 18 

17 IF TF=CHR# {2433 THEN Wi=Wi+l ELSE IF 

TF=CHRE& (242) THEN WX=WX-1 

18 FP=P+(50-Z) 3: X=X+S5N {RND-RNDI: IF Xs1i TH 

EN X=1 ELSE IF X>27 THEN X=29% 

17 IF WX>X AND WI<X+11 THEN FEN Z:LOCATE 
1,1:PRINT CHR#tA1):LOCATE 1,1=:PRINTF CHR 

#130) , TAB EX) SCHR& (1433 ;, SPACES (IC; CHREF (1 

A3):FEN 1:L0OCATE WX,1:-PRINT CHR#1254):60 

TD 14° 

20 CLS:FOR I=26 T0 0 STEF -1:INK 0,1:BODR 

DER I:SOUND 1,0,3,15,0,0,I:NEXT I: SOUND 
1,0,100,0,1,0,25:PEN 3: FRINT"FUNKTE: "; Pr: 

PRINT: INPUT "NOCHMAL? J/N" „NO#= IF UPPER#E 
{LEFTFENGE, 13)="3" THEN 13 


IS 








3a - Sie haben richäg gelesen. Wir kön- 
nen Ihnen hier ein Spielprogramm anbie- 
ien, das insgesamt nur neun Programm- 
zeilen umfaßt. Ein Auto ist über eine Renn- 
strecke zu steuern, ohne mit der Randbe- 
grenzung zu kotlidieren. Nach dem Start 
erhöht sich die Geschwindigkeit bis auf ei- 


nen Maximalwert. Steuern können Sie mit 
den Tasten „Pfeil links“ und „Pfeil rechts“. 
Nach einem Zusammenstoß wird die | 
Punktzahl und die Frage nach einer Wie- 
derholung ausgegeben. 

Hier kann sich jeder überzeugen, daß man 
schon mit wenigen Zeilen Spannung und 
Action auf dem Computer erzeugen kann. 





Eines der kürzesten Spielprogramme 
die je veröffentlicht wurden. 


KERLE ERNN 
dB Ze Ze Ze Ze Ze Zu Zu Ze eo 


ws | | GSompute mib Bl 


Programme 


| NKA SOGRA Schneider CPL 464 












Sie schlüpfen bei diesem spannenden siert durch „$" - berühren, gelangen Sie durch ein MG-Code-Programm in Sekun- 
Abenteuer-Spiel in die Rolle des großen in den nächsten Level. Für jeden beende- denbruchteilen ln 
„Lonquistadors“, der versucht, an die sa- ten Level erhalten Sie Punkte. Je schneller 

genumwobenen Gold-Schätze der Inkas Sie den Level hinter sich bringen, um so Wichtig: 

zu gelangen. Wandeln Sie also auf den mehr Punkte bekommen Sie. Doch: Las- Die Zeichen „+“ in PRINT- Statements ef- 
Spuren der spanischen Abenteurer von sen Sie allzuviel Zeit verstreichen, gehen hält man durch CTRL-J. Das Programm 
einst, und finden Sie die Kleinode! Ihr be- Sie leer aus: Keine Punkte! besteht auch zwei Teilen, von denen der 
schwerlicher Weg führt Sie über Kletter- Stoppen können Sie das Programm, wenn erste als Lade-Programm fungiert. 
stege, Schluchten, über Lianen und vorbei Sie während der Anzeige von High Score/ 
an wilden Tieren. _ Last Score das „e" (falls nötig: SHIFT E) 
Das Spiel wird über den Joystick ge- drücken. Um das Spiel neu zu starten, ge- 
steuert. Der Feuerknopf dient zu „Ihrem ben Sie GOTO 20 ein. 

Sprung“, Wenn Sie das Gold - symboli- Nach einmaligem Spielen wird das Bild 













Achtung: Programm nur 
auf KASSETTE lauffähig!!! 


























il CLS:FOKE 
DO, 

BAR) - 
46 BORDER u MiVI=26:M DI =24:MIII=6: INK 0,0: INK 1,26rINK 2,24: INK 3,5:5YMEOL AFTE 
Ra 

m 
so 3 
7. MEMORY ASFFF: FOR %=43775 TOD 423815: REM ##+% MO-EODDE SFEICHERN #8#* 

20 : 

70 READ A:rFOKE X, 

ıi00 NEXT 

110 ° 

120 

150 ENT 1,50,20,1:ENT 2,100,2,S57ENT 2,50,20,1:ENT 4,50,10,1 

140 ° ; 

150 REM ### DATA ME-ECODE #*#+ 

160 ° 

170 DATA &FZ,&71,0,3C0, LTE DE, UTZREIRUEE EI, RFEC, &A7 ,4E2,4,171,&FO,2701 , &F3,32, 
Te > 0,64,8109,7,:#2,23,0, 64, 17,0,2C0,1,0,64,4ED, 


Kood, 205 





























% BO, ol 

190 

170 REM *»*# GRAPHIEKE-ZEICHEN x##* 
aa 






210 SYMBOL 97,0,0,0,0,60,125,255,255 

220 SYMBOL 98,66,165,153,133,141,66, 102,24 

230 SYMBOL 97,0,8,28,14,54,4,8,4 . 
240 SYMBOL 100,0,16,56,112,108,32,16,32 






Tree, | Ä | ..; ! on 





programme. 


250 SYMEGL 101,0,16,24,124,24,26,18,76 

260 SYMEOL 102,.0,32,48, 120,52,80,40,12 

270 SYMBOL 103,0.8,24 62,24 ,36,72,88 

290 SYMBOL 104,0,4,12,20,44,10,70,48 

2570 SYMBOL 105.0,8,.12,30,12,12,20,20 

z00 SYMBOL 1064,0,14,48,120,48,48,40,40 

310 SYMBOL 107,66,66,175,56,66,66,126, 66 

320 SYMEOL 108,16,16,48,24,16,16,74,48 

320 SYMROL 109,255,195,165,153,153,1659,195,255 

340 SYMEOL 110,60,66,153,165,165,153,66,50 

z50 SYMBOL 111,0,0,0,0,170,0,0,0 

360 SYMBOL 112,0,0,0,0,0,0,0,1 

370 SYMBOL 117,0,0,0,0,0,64,192,240 

Z8G SYMBOL 114,3,3,5,5,0,0,0,0 

2906 SYMBOL 115,74,36,66,90,66,36, 16,56 

400 SYMBOL 116,.0,0,0,8,24,60,58,63 

410 f 

A720 REM  *##r GRAPHIK ### 

420 

490 FEN TıM$="INKA-SOSRA":LOCATE 15,17:50SUB 510 

450 PEN Z:M$=-"CREATED BY F.MEURER ":LOEATE 7,20:60SUB 510 

260 FOR X%=17? TOD 808 STEF 4sPL0T X%2,228:DRAW 298,290,1+X% MOD Z7FLOT X%2,190: DRAW 
2998,128,1+X% MOD Z:NEXT 

470 FOR x=1 TB ZOsFOR A=1 TO Z:FOR Y=1 TO SO:NEXT:IFOR Bei TO 3: INK B,MtirtArB)MD 

D ZI:NEXT B,A,X 

ABO LOCATE 14,24: FRINT’LOADING .„.."5 

470 INK 0,0: INK 1,265INK 2,24:INK 2,6 

SOG RUN"! 

sio FÜR N=1 TO LEN(ME#) 

=20 FOR T=0 TO 7 

S30 F=PEEK (KASOO+ (ASE {MIDS (MN, 1) ) -I23%*8+T} 

540 A(T)I=P:NEXTSSYMEOL 140,10) „AtOr ,ARi1) All) ,Al2) ,Al23 ,AUT) ,AUTI=SYMROL 141,At 
4) ,A(4) ,A(5) „BIS „Al6} ,Alb) „ATI ALT 

550 FRINT CHR$ (140) ; CHR$& (10) ; EHRE (8) ;CHRS (LA1 I ;CHRF# (1135, SOUND 1,200,2 

560 NEXT 

570 RETURN 


Teil 2: 


10 A$=" "CHISC=0: TI2=0:HI$="GONZO"sEVERY 2 GOSUB 980 

20 DI: ME=3: LEV=BO | 

30 MODE OsPEN 3:PRINT" INKA-SOBRA": PRINT 

40 PEN Z:PRINT" CREATED BY: F. MEURER" :PRINT3PRINT 

50 PEN 1:LOCATE 1,155PRINT" HISCORE"HISCHPRINT"BY "HIS 

&0 PEN 3:LÜGCATE 1,17:PRINT" LAST SCORE"TI2:PEN 1 

70 LOCATE 1,24: PRINT"PRESS BUTTON TO PLAY" 

80 WHILE JOY(OI<1&A:IF INKEYS<>"E" THEN WEND ELSE STOP 

30 MODE 1 

100 IF PEEK(&4000)=0 THEN CALL 43802:50T0 130 ELSE DIM A$(24):60SUB 72 

0:CLS:FOR Y=1 TO 24:LGCATE 1,Y:FOR %=1 TO AOrBE=MIDStARLY) X): IF Bs= 
"m" OR Bs="£" THEN PEN 2 

110 IF B$="b" OR B£="a" OR B$="n" THEN PEN 3 

120 PRINT B#;:PEN 1:NEXT:NEXT=sCALL 43793 . 

130 EI:X=39: Y=7?43 TI=TIME:LOCATE 1,25: PRINT"LEVEL "(80-LEV) /20+1:LÖOCATE 
12,25: PRINT"MEN "ME 


106 |  . Seompube mi = 


„programme. 


140 FOR S=1 TO LEV:NEXT:A=JDY(O):IF A=0 THEN LOCATE %,Y=PRINT"i":60TD 
140 

150 IF A=16 THEN 140 

180 JMP=0:1IF A>i& THEN A=A-16: JMP=1 

170 SOUND 2,119,2,7,0,1 

180 IF A<>1 THEN 230 

190 REM STEIBEN NUR BEI LEITER 

200 IF Y=1 THEN 140 

210 IF MID${A$tY-1),X,1?<>"k" THEN 140 

220 Y=Y-1:LDCATE X, Yals PRINT MIDS{AF{Y+1) „X,L)SLOCATE X,Y:ıPRINT"j":50T 
D 140 

»230 IF A{>2 THEN 280 

240 REM ABSTEIGEN NUR BEI LEITER 

250 IF Y=24 THEN 140 

2&0 IF MIDSIAS(Y+1) ,X,13<>"k" THEN 140 

270 Y=Y+1:LOCATE X,Y-1:FRINT MIDE {AS (Y-1) ,X,DD:LDEATE X,V:PRINT"i "50T 
Do 140 

280 IF A<>4 THEN 440 

290 REM LINKS NUR,WENN NICHT m 

300 IF X=1 THEN 140 

310 IF JMP THEN LOCATE X,Y=PRINT"c"MLDCATE X,Y=PRINT"F"2IF Y=1 OR X=1 
THEN 650 ELSE IF MID${A&{Y-1),X-1,1)="m" THEN 140 ELSE LOCATE X,Y:PRIN 
T MIDS(AS(Y},X,DaY=Y-1:IF MIDE{ASCY-NI „X-1,1ICD"k“ THEN X=X-1 

320 E$=MID$(AFLY) ,X-1,1): IF B$="m" THEN 140 

339 IF B$="a" OR B$="b" THEN 450 

340 X=X-1:LOCATE X,Y=:FRINT ECHRS$CINT (RND«2+101)) MIDSLASFLY) „X+1,1)z IF Y= 
24 OR B$="k" THEN 140 

350 B$= =MIDE (AS (Y+1) ,X,1) = IF Bt=" ® THEN 500 

360 IF Bt="a" OR B#="b" THEN 450 i 

370 IF B$="k" OR B#="m" THEN 130 

380 IF B$="n" THEN 290 

390 IF B$<>"1" THEN 130 

400 REM SEIL-RUTSCHEN 

410 LOCATE X,Y:PRINT MID$(A${Y},X,1) 

420 Y=Y+1:LDOCATE X,Y=:PRINT"j ":LOCATE X,Y:PRINT"I":IF MIDStAS(Y+1),X,1) 
="]" THEN 420 


450 A=2 
440 A=A-1:LDEATE %X,Y:PRINT"L"eY=Y+l:LDEATE X,Y:FRINT"3"TEIF Y<24 THEN I 
FOMIDE(AFiY+1),X,1)=" " THEN 819 


450 EDTD 520 

460 IF A<>B THEN 140 

470 REM. RECHTS NUR,WENN NICHT mn 

420 IF X=40 THEN 140 

476 IF JMPF THEN LOCATE X,Y: PRINT"d": LBEATE X,Y:FRINT”’R":IF Y=1 OR %=40 
THEN 650 EI AR MIDStA$tY-1), X+1,1>="m" THEN 140 ELSE LOCATE X,Y:PRI 

NT MIDE(CAFCYI, X, 1) Y=Y-1:1IF MIDS(AS(Y-1), A+l,13#£>"k" THEN X=X+i 

. S00 BS-MIDS(RF(Y), X+t1,1}:IF B$="m" THEN 140 

510 IF Bs="a" OR Be="pn THEN 450 

320 LDEARTE X,Y=FRINT MIDE(AFCNY „X, VICHRFLINTCRNDRZ+103) ) eX=X+1: IF Y=24 
OR BE="k" THEN 140 

530 BS=MID$ (AS (Y+1),X,1): IF B$=" " THEN 400 

540 IF Bs="a" OR B$="b" THEN 450 

>50 IF B$t="k" OR Bf="m" THEN 140 

Sa0 IF Bt="n" THEN 290 

570 IF Bz="1" THEN 400 


Gompute mib 
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programme 





s30 GOTO 140 


590 Be="]" 

600 A=2 

610 AsA-1:LOCATE X,Y=PRINT" ":Y=Y+lzLOCATE X.YIFRINT"j"SIF Y<24 THEN I 
F MIDEIAFLY+D) ,X,13=" " THEN 610 


620 IF AXO THEN 550 
30 IF X{>2 G0T0 1436 
540 IF LEV{I>O THEN LEV=SLEV-E0:SLOCATE 2,243 PRINT" "ILODCATE 3,2:FEN PR 
INT"$"sPEN 1:L0OCATE 1,25: TI2=TI2+TIME-TIEIF LEV>=O THEN 130 ELSE 50TD 
ED 
850 CALL &BCA7:BDUND 53,60,20,4,0,0, 2:3 FÜR Kei TOD 12:CALL 23776:NEAT:ME=S 
HE-12IF HEI>O SITE Ic 
50 GLS: SOSls 709 
&ro IF TIZ>HIEE THEN ELS:PFRINT" 


aan megpTL TTS TERLIEmEm 





NEW HISHSEGORE 
":CALL GEEOOSLINE INPUT "YOUR NAME: "sHI&SHISTC=TI2 
580 SOTO 20 
890 CLS:PRINT" 
| Yo HAVE WON THE GAME !":PRINT"YOU BET A BONUS FOR EACH MAN YOU HAVE 
|  ."z:BOSUB 700: TI2=MExi10600+TI2:60T0 670 
| 700 TIZ=INT((LBO-LEVI/20*30000-TI2} /10): IF TI2<10 THEN TI2 
| 710 RETURN 
720 Astl)=" 
720 Agi2)=" 
740 A$(Z)=" 
750 Astd)=" 
760 AstIe" 
770 Atio)=" 
FBO A${TI=" 
790 As(B)=" 
B0OO A$(9)=" 
BIO AFt1OI=" 
.B2O Astitl)=" 
BI0 AstliDI=" 
840 Ast) =" 
B50 A$t14)=" 
860 Asti5)=" 
870 Astl6)=" 
880 AslI7I=" 
890 Att1g)=" 
900 Ast19N)=" 
| 910 A$(20)=" 
| 920 Att21)=" 
| 7930 As(22)=" 
940 A$s(23)=" 
950 A$(24)=" bibbm 
960. RETURN 
I 980 IF 5Rt(1)>127 THEN RETURN 
| 990 SO=INT(RND#S)sIF S0=0 THEN S0=478 
| 1000 IF SO=1 THEN 50=424 
1010 IF S0=2 THEN S0=379 
1020 IF S0=3 THEN S0=319 
1030 IF S0=4 THEN 50=284 
1040 SOUND 1,50,20:RETURN 


Mr 


mmammkk 
E [17 
kam ki 
k 33 
% = [i3 
MMMM ko 
i mmm mmmnnnmnRAHmmmmmmmk  " 

mm 

1 

k ı k 
kmmmmml : kmm 

k 

mmm k 

MMMmMm  MMMIEM mmmm 

ı MmmAmmm " 
ı [1] 
1 m a a k = 
ia mm mmmmmm mmmmmammmik = 
Immmm m m m mk # 
lanm m m m .mk “" 
m m m m m mk "N 
m mbbm mbm mi 2 


3 
a 


ae 
fd hd fe hu he Zt 


ad at Deu fd fand fd Fu fe, jael 
Dad fe Dun fu God fund fu Fu fund dark jet Dual Ze 
= | 
352333233333353533 3 
ge 
TEN KETEN 


DTTEERTETR 


N) 


1085 u Gompute mit | 1 





NEIN? Dann schauen Sie bitte in aller Ruhe die en Bestelliste durch. Sie werden dort 
mit Sicherheit für Ihr System die richtige Software zu supergünstigen Preisen finden. 


Unser Software-Service wird jede eingehende Bestellung innerhalb NUT 1 Woche bearbeiten. 


Zusätzlich übernehmen wir auch eine „Ladegarantie“. Sie sind berechtigt, fehlerhafte und unladbare Programme zum Umtausch an 
uns zurückzusenden. Also zögern Sie nicht lange und füllen Sie den beiliegenden Bestellcoupon aus oder rufen Sie uns einfach unter 


den Nummern 
05651/40643 oder 40593 
an und geben Sie Ihre Wünsche telefonisch durch. 


| Alle Programme aus den Zeitschriften 5/86 bis 9/86 können jederzeit unter Verwendung des Bestellcoupons nachbestellt werden. Beachten _ 
Sie aber bitte, daß die Preise ohne Bestellcoupon erhöht werden müssen. Sie zahlen dann pro Kassette 24,50 DM, für die Commodo- 
re-Diskette 29,50 DM und für die Schneider-Diskette 44,90 DM, | 


Heft 5/85 Heft 5/85 Heft 7/85 

Commodore Commodare Commodore 

Besiell-Nr. COM 6 1/1 16,- DM | Besteli-Nr. COM C 2/1 16,- DM | Bestell-Nr. EGM CK 3/1 16,- DM 

Bestell-Nr. COM D 1/1 '20,- DM | Besteli-Nr. COM D 2/1 20,- DM | Bestell-Nr. GOM GB 3/1 20,- DM 

Schneider Schneider Schneider 

Bestell-Nr. COM S 1/1 16,- DM | Bestell-Nr. COM $ 2/1 16,- DM | Bestell-Nr. COM SK 3/1 15,- DM 

R Bestell-Nr. COM SD 3/1 39,-0DM 

[1:1 16:77: DE 11 16 //  D Aus diesem Heft: 

Commodore Commodore Commodore 

Bestell-Nr. COM CK 4/1 16,- DM | Bestell-Nr. GOM CK 5/1 16,- DM: | Bestell-Nr. COM CH 6/1 16,- DM 

Bestell-Kr. COM CD 4/1 20,- DM | Bestell-Nr. COM GR 5/1 26,- DM | Bestell-Nr. COM CE 6/1 20,- DM 

Schneider Schneider Schneider 

Bestell-Nr. GOM SK 4/1 16,- DM | Bestell-Nr. COM SK 5/1 16,- DM | Bestell-AÄr. COM SK 6/1 16,-DM . 

Besteli-Nr. COM SD 4/1 39,- DM | Bestell-Nr. COM SD 5/1 39,- DM | Bestell-Nr. COM SD 6/1 39,- IM 
TITTEN in ei > 





"Gompute mit“ Software-Service * Bestellcoupon 10 x "Compute mit“ Software-Service 





Die Zustellung erfolgt: gegen Vorkasse |_| oder per Nachnahme |) + Versandkosten 
Auslandslieferungen nur gegen Vorkasse 


innerhalb von 1 Woche 
Entnehmen Sie bitte aus unserer Preisliste die notwendigen Angaben für Ihre Bestellung: 









Bitte liefern Sie mir: [_] Kassette für re ae re Anzahl 
Bestell-Nr. 
I] Diskette für Fr Anzahl 
Bestell-Nr. 
zum Preis von gesamt a er = DM 







Names, Vorname Straße, Nr: 





PLZ, Ort Datum, Unterschrift 


2 = _ Compute mi = 10/85 


Schneider CPC-464- 


Autorennen, Kassette 11,- DM, Bestell- 
Nr. US 3/85 

Universal-Datei V1, Kassette 9,- DM, 
Bestell-Nr. US 4/85 
ComputerschrifV’Symbol-Swap, 

Kassette 10,- DM, Bestell-Nr. US 5/85 
Keyboard Toolkit/Farbdecodierung, Kas- 
sette 11,- DM, Bestell-Nr. US 6.1785 
Aladin, Kassette 9,- DM, Sell US 
6. 2185 

Painter/Box-Befehl, Kassette 14,- DM, 
Diskette 24,- DM, Bestell-Nr. US 7/85: 
Maschinensprache-Monitor/Disk-Hilfe, 
Kassette 15,- DM, Diskette 25,- DM, Be- 
. stell-Nr. US 8/7855 

Basic, Maschinen-Kit, Kassette 12,- DM, 
Diskette 22,- DM, Besteil-Nr. US 9/85 
Fallschirmspringer, Kassette 9,- DM, Be- 
stell-Nr. HG/SR-3 

Geisterschloß, Kassette 9,- DM, Bestell- 
Nr. HC/SR-4 

Zeichendesigner, Kassette 12,50 DM, Be- 
stell-Nr. HC/SR-5 

Super-Miner, Kassette 14,- DM, Bestell- 
Nr. SR 42 

CPC-Bert, Kassette 14,- DM, Bestell-Nr. 
SR 52 

Conan’s Castle, Kassette 15,50 DM, Be- 
stell-Nr. SR 62 


VC-20 


Bestelischein/Glücky, Kassette 8,50 DM, 
Diskette 15,- DM, Bestell-Nr. V 61 
Multigraph/All Rammer, Kassette 11,- 
DM, Diskette 15,50 DM, Bestell-Nr. V 71 
Zyklo/Meteorit, Kassette 11,- DM, Disket- 
te 19,50 DM, Bestell-Nr. V 81 
Garten/Schloß Gruselstein, Kassette 14,- 
DM, Disketie 19,50 DM, Bestell-Nr. V 91 
: Fressman/Outlaw, Kassette 14,- DM, Dis- 
Kette 19,50 DM, Bestell-Nr. V 101 
Prost/Buffalo Bill, Kassette 14,- DM, Dis- 
kette 19,50 DM, Bestell-Nr. V 121 

Joy Man/Powerpack, Kassette 14,- DM, 
Diskette 19,50 DM, Bestell-Nr. V 22 

Der rasende Malocher/Frankie goes to 
Pharao, Kassette 14,- DM, Diskette 19,50 
DM, Bestell-Nr. V-32 
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Matron/Obst, Kassette 14,- DM, Diskette 

19,50 DM, Bestell-Nr. V 42 

Race On/Cagy, Kassette 14,- DM, Diskette 

19,50 DM, Bestel}-Nr. V 52 

Nürburg 3D/Düsi, Kassette 14,- DM, Dis- 

kette 19,50 DM, Besteil-Nr. V 62 

Zykto/Geldsammler, Kassette 11,50 DM, 

Bestell-Nr. HC/V-1 

Star-Wars/Punktefresser, Kassette 14,50 

DM, Bestell-Nr, HC/V-2 

Catch. the Fish/Mister Jump, Kassette 

14,50 DM, Bestell-Nr. HC/V-3 _ 

Ghost's Eggs/Fox Hunt, Kassette 14,50 

DM, Bestell-Nr. HC/V-4 

Collector/Break Out, Kassette 14,50 DM, 

Bestell-Nr. HC/V-5 

Sprites/Space-Battle, Kassette 13,- DM, 

Diskette 19,- DM, Bestell-Nr. UV 2/85 

Grafik-Painter, Kassette 10,- DM, Bestell- 

Nr. UV 5/85 

nes Kassette 9,- DM, Bestell-Nr. UV 
5 


Decelerator, Kassette 9,- m Bestell- Nr. 


UV 7185 


Joypaint, Kassette 12,- DM, Bestell-Nr. 
UV8/85 . 


Disassembler, Old-Programme. Kassette 
10,- DM, Bestell-Nr. 9/85 


Commodore 64 


Mauern/Widerstand, Kassette 8,- DM, 


Diskette 15,- DM, Bestell-Nr. C 41 


'Space-Comets/Erdspalte/Sprite-Data, 


Kassette 15,- DM, Diskette 23,50 DM, Be- 
stell-Nr. C 51 

Autostart/Bestelischein/Roadpainter, Kas- 
seite 16,50 DM, Diskette 23,50 DM, Be- 


‚steil-Nr. G 61 


Hardeopy/Space-Fighter/Data-Generator, 
Kassette 15,50 DM, Diskette 19,50 DM, 
Bestell-Nr. C 71 


Monster-Attack/Block-Painter/Epson- 
Drucker, Kassette 16,50 DM, Diskette 
23,50 DM, Bestell-Nr. 6 81 
Projekt/Datenbank, Kassette 16,- DM, 
Diskette 23,50 DM, Bestell-Nr. C 91 
Spiders/The Basic, Kassette 16,50, Dis- 
kette 23,50 DM, Bestell-Nr. G 101 


Compute nib 


High Noon/Skeet/Grafik-Designer, Kas- 
seite 17,50 DM, Diskette 23,50 DM, Be- 
stell-Nr. G 121 
Painter/Star-Baddte/Editor, Kassette 
17,50 DM, Diskette 23,50 DM, Bestell-Nr. 
G22 

Wüstenrally/J et-Pac/Black Moore Castle, 
Kassette 17,50 DM, Diskette 23, 50 DM, 
Bestell-Nr. C 32 

Brieftaube/Cadelon, Kassette 19,50 DM, 
Diskette 24,50 DM, Bestell-Nr. GC 42 
Ritter Erik/Grand Prix Spritehilfe, Kassette 
19,50 DM, Diskette 24,50 DM, Bestell-Nr. 
G52 

Firebird/High Music, Kassette 24,50 DM, 
Diskette 29,50 DM, Bestell-Nr. C 62 
Multi-Key/S-Tool 64/Interrupt-Program- 
me, Kassette 16,- DM, Diskette 21,- DM, 
Bestell-Nr. UC 2/85 
Spritehilfe/Diskloader/Directory, Diskette 
21,- DM, Bestell-Nr. UC 3.1/85 


"Tape-Directory/Asmon/Data-Generator, 


Kassette 15,- DM, Diskette 21,- DM, Be- 
steli-Nr. UC 3.2/85 

Fast Load, Kassette 10,- DM, Bestell-Nr. 
UC 4/84 

Diskmonitor/Zeichensatz, Diskette 20,- 
DM, Bestefl-Nr. UC 5/85 
Reassembler/Maskengenerator Kassette 
15,- DM, Diskette 20,- DM, Bestell-Nr. UC 
6/85 

Del 64/Treiberprogramm für 1526/MPS 
802 Decelerator, Kassette 14,- DM, Dis- 
kette 19,- DM, Bestell-Nr. UC 7/85 
Supertapedirectory/Renew/Kontroltabfra- 
ge, Kassette 15,- DM, Bestell-Nr. UC 8/85 
Video-Utilities, Multi-Basic V3, Bildeditor, 
Kassette 17,- DM, Diskette 23,- DM, Be- 
stell-Nr. UC 9/85 
Reactor/Concentration/Datenbank, Kas- 
seite 17,50 DM, Diskette 23,50 DM, Be- 
stell-Nr. HG/C-1 

Warlords/Caverns of Death, Kassette 
14,50 DM, Diskette 19,50 DM, Bestell-Nr. 
HG/C-2 

Alien-Destroyer/Duell, Kassette 24,50 
DM, Diskette 29,50 DM, Bestell-Nr. 
HG/C-3 . 

Ocean Game/Tennis, Kassette 17,50 DM, 
Diskette 23,50 DM, Bestell-Nr. HG/C-4 
The Caves, Kassette 17,50 DM, Diskette 
23,50 DM, Bestell-Nr. HG/C-5 








"NEVER ' FORGETS! 


Speichern und Drucken. Fehlerlos. Mit 100% Sicherheit: 
das ist Elephant Memory Systems", 
Unter dieserm Markennamen erhalten Sie hochwertiges Zubehör 
für perfekt arbeitende Kommunikations-Systeme der Text- 
und Datenverarbeitung — wie Disketten, Farbbänder, Farbband- 
kassetten und Spezialreinigungsmittel. . 
Kompromiß ist Risiko, Zweite Wahl ist Unsicherheit - deshalb: 
verlangen Sie Elephant Memory Systems!" 


GE ELEPHANT NEVER FORGETS. 


MARCOM Computerzubehör GmbH 

Podbielskistraße 32+, 3000 Hannover 51, Tel. {95 11) 64 7420 

Frankreich: Soroclass, 8, Rue Montgotfier - 33115, Rosny-Sous-Bois, Tel.: 16 (1} 895-73-70 

Großbritannien: Dennison Mfg. Co. Lid., Colenial Way, Watford WD2 &JY, Tel: 0923 41244, Telex: 923321 

fallen: King mec 5.p.a. - Via Regio Parco 108 - 10036 Settimo Torines® 

Weiteres Ausland: Dennison International Company, 4006 Erkrath 1, Matthias-Claudius-Straße 9, Telex: 858 66066 
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